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. Preface 


There is probably nothing so misunderstood or so 
carelessly disregarded as stress analysis for piping sys- 
tems in refineries, chemical processing plants, and 
power generating stations. Just try breaking the ice ata 
party sometime by saying that you are a pipe stress 
analyst. Yet, in all seriousness, there is probably noth- 
ing more important for the overall safety, reliability, 
and longevity of critical high-pressure, high-tempera- 
ture piping systems than a concerned, informed, and 
practical analysis to make the systems comply with 
established codes and industry standards. A refinery 
that looks good is great. Saving money on the initial 
investment is also great. But if the owner of the plant 
has to shut down certain systems every six months to 
replace the bearings on all his rotating equipment, or 
the nuclear core melts to the floor like so much unsalted 
butter, the money saved begins to look like pocket 
change. 

Manufacturers of the equipment used in refineries 
and other industrial concerns are being forced by in- 
creasing cost to use less and less material in their prod- 
ucts to remain competitive. Pumps, compressors, tur- 
bines, and heaters are all being engineered to finer and 
finer degrees. This makes the induced loading on these 
machines from the attached piping a greater problem. 
Some owners of plants even require the stress analyst to 
add an additional 50 percent safety factor to the loads 
put on rotating equipment. 

To counter this situation, elaborate computer pro- 
grams have been written to perform highly accurate 
numerical analyses of structural piping systems. Such 
programs: can analyze weight loading, thermal expan- 
sion, and response spectra earthquake vibration and can 
even do real-time time history dynamic analyses. But 


the price tag of these analyses matches their high levels 
of accuracy. And because most systems go through at 
least one revision and sometimes more, the cost of the 
computer-aided design can mount very quickly. 

Which brings us to the reason for this text. There exist 
numerous empirical, statistical, or simplified methods 
of analysis for a great many of the stress analyst’s tasks. 
These calculations may be used as preliminary analyses 
or as devises to weed out unacceptable configurations 
before they are subjected to a mainframe analysis, but 
sometimes the results can be shown to be accurate 
enough to be used as the final analysis in less critical 
systems. 

However, it takes many hours, even days, to per- 
form all the calculations entailed by many of these 
“simplified’”’ methods, if done by hand, and these cal- 
culations are subject to human error. Enter the pro- 
grammable calculator. Equipped with many, many data 
memory registers and hundreds of program steps, the 
programmable computer can reduce work that could 
take days to minutes, with none of the chances for error 
(except for garbage-in-garbage-out errors). With mag- 
netic card readers to store the programs and printers to 
print the input data and results that such calculators 
provide, the stress analyst can use his/her time more 
productively and possibly decrease the amount of dol- 
lars spent on mainframe computer time. 

I would like to stress that the programs that my reader 
finds herein have been subjected to the most rigorous 
testing to ensure the accuracy of the results and their 
adherence to the equations of the source documents. 
I personally use these programs in my daily design 
efforts. It is therefore in good conscience that I present 
them to you as complete and error-free. 


Introduction to Programming 


The programs in this manual are written for the Texas 
Instruments TI-59 and the Hewlett-Packard HP-41CV. 
These two machines are the two leaders in the program- 
mable calculator market, even though the TI-59 was 
first introduced in 1977. Both store programs on mag- 
netic cards, both will print data via a removable printer, 
both print string data as well as numeric data, and both 
can accept software in the form of preprogrammed 
chips inserted into slots in the machine. The HP-41CV is 
more refined, more portable, has more memory space, 
has more external hardware that can be attached, and 


can do some clever little tricks that the TI-59 cannot 
possible do. It should. To get the same ‘basic capabili- 
ties, (a card reader and a printer), you may have to 
spend four times as much for the HP as for the TI with 
printer. When push comes to shove, as demonstrated 
by the almost identical duplication of programs for the 
two machines presented herein, the differences are for 
the most part cosmetic. 

lam making a few assumptions regarding the use of 
this manual. The first is that the reader has a basic 
understanding of how his or her calculator works— 


how to perform day-to-day calculations, read and write 
magnetic cards, plug in the printer, locate the “on/off” 
switch, and the like. The second is that. the reader has 
not tossed his/her owner’s manual into the trash, The 
third is that a printer is part of the reader’s equipment. 
This is essential. If no printer is attached, the TI will 
simply stare at the user, and the HP will hold it’s breath 
and tum blue until one is hooked up. 


The Tls59 


1 like to think of my TI as my workhorse. If I have a 
simple task to perform that will take fifty or a hundred 
lines of coding to accomplish, | will always use the 
TI-59. It has been around since 1977 and even though 
Texas Instruments has finally given it the deep six, itis 
still a major role-player in the field of programmable 
calculators. It prints alpha strings and has indirect regis- 
tration, several very handy built-in operations, and 
enough memory to handle just about anything. It uses 
the Arithmetic Operating System, which simply means 
that the calculator works by saying “one plus one equals 
two.” Ninety percent of all calculators use this method, 
so programming can easily be learned. 

One of the most useful set of keystrokes uses the OP 
key. This key is used to print alpha-numeric strings and 
the combination of string and numeric data. Another 
series of OP codes adds or subtracts a 1 toa specific data 
Tegister. This is extremely handy when certain memory 
Tegisters are used as counters or pointers. OP 18 and 19 
test for the presence or absence of an error condition, 
and set a flag accordingly. OP 08 locates all the labels in 
a program and prints their locations. OP 10 applies 
the signum function to a number in the X-register. 
OP 12 through 15 perform certain statistical and linear 
interpolation functions. OP 17 reapportions the data 
register/program space ratio. I use many of the OP 
codes in my programming, and the reader would be 
wise to familiarize himself/herself with them. 

The TI can use almost all the keys on the keyboard as 
global labels, except SST, BST, LRN, and one or two 
others. I use these labels almost exclusively. They may 
cause the program to run a bit more slowly, and they 
require an extra step, but they make programming an 
awful lot easier. Numbers cannot be used as labels. I use 
the “user” keys A through E and a through eas muchas 
possible because they do not need the prescript SBR or 
GTO to execute. Most of the time I use A through Ekeys 
as auto-execute keys—or “user-interface” keys, to use 
the computereze. More often than not; A is used for 
input, B through D are execute keys, and E initializes 
the program. 

I also make use of two other keys on a regular basis. 
The RST key resets all the flags to “OFF,” clears the 


subroutine return register, and puts the program at 
Step 000. To program all those functions would be a 
sizable task, consuming a large chunk of programming 
space. The CP key clears the test register when encoun 
tered in a program. If the reader presses this key when 
a program is not running, all the program steps in 
memory get sent to a landfill operation somewhere in 
Hemet, never to return. CP stands for ‘Clear Program 

The test register is used to testa number to see wheth 
er it is equal to or equal-to-or-greater-than whatever is 
stored in the register, Using the INV key reverses these 
two operations. But the test register may also be used to 
store a number that needs to be recalled only once. The 
user may clear all the memories, clear the current opera- 
tion, reset the calculator, and even clear out the pro- 
gram memory, and the number in the test register is 
unaffected. It also saves two steps when used in a 
program. 

A really nice bit of creative programming is the TI's 
ability to clear out certain blocks of data memory with- 
out affecting other blocks. Now, the reader might think 
that this isn’t a particularly remarkable feat, given the 
calculator’s ability to loop, but the task can be per- 
formed using only seven program steps. It is done by 
Treapportioning the memory registers. By pressing ‘’5 
OP 17, CMS, 6 OP 17,” you will clear out all the memory 
except registers 50 through 59. Or by pressing ‘1 OP 17, 
CMS, 6 OP 17,” you will wipe out only the memory 
registers 00 through 09. This operation also takes almost 
no time. 

The TI system has only two active registers for arith- 
metic operations: the X or active register, and the Y or 
the passive register. I call the Y register the passive 
register because once the number gets there, nothing in 
the world can be done to it except to clear the whole 
operation. The number cannot be changed, recalled, 
rolled down, or tested. Once the operator key (+, —, x, 
+) is hit, the Y register is sacrosanct. When a number is 
in the X register, however, its sign can be changed, it 
can be inversed, its log taken, its SIN taken, and it can 
even be stored or summed into a memory register be- 
fore the = key is hit. These last operations can’ be very 
handy in the programming mode. 

I prefer to print out all the data, both input and 
output, with alpha-numeric labels that identify the par- 
ticular piece of data. This makes checking and quality 
control easier. However, the task of printing alpha- 
numerics is cumbersome and space-consuming. To 
print out a calculated piece of data with a four-character 
alpha string next to it takes no less than fourteen steps. 
The number of steps increases if the decimal must be set 
in a particular mode. It is easy to see that inputting 
numerous data can eat up a great deal of valuable com- 
puting space, severely limiting the labeling of the out- 
put data. For this reason, if space is critical, I will use the 


by the alpha codes above the key, a holdover from my 
use of the TI. So when I ask the user to “interface’’ with 
the key A, [ mean the key in the uppermost left hand 
corner of the keyboard. 

A special word here. I always have the USER mode 
ON. 

The reader will not find any synthetic programming 
in this text. This is not because I think there is some- 
thing wrong with the synthetics that various people 
have developed. It’s just that I have been too lazy to 
learn the technique. Also, the reader could not dupli- 
cate the keystrokes unless he/she had access to certain 
synthetic software. 

The HP has several test functions that the TI does not 
have. There is no test register because there is no 
need for one. The functions test between the X and Y 
registers, or between the X register and zero. Also, 
there are two flag test functions that are very handy: 
FS?C____ and FC?C__ __. The first tests to see whether 
a flag is set and if so clears the flag, and the second tests 
to see whether the flag is clear and if not clears the flag. 
This saves the programmer from having to hard-code a 
clear flag command. 

The HP cannot program the SIZE command, so clear- 
ing out blocks of memory is not easy. The user can clear 
out the statistics registers, although to clear outa partic- 

-ular set of registers, a little artful dodging is required to 
define where the statistics registers are. 

The HP41-CV of course uses the Reverse Polish Nota- 
tion operating system, which has an operational stack 
with the registers X, Y, Z, and T. Any or all of these may 
be recalled, stored into, summed into, and used as 
indirect pointers. Numbers may be hidden in the stack 
without having to store them in regular registers. 

As I have stated before, I use the buffer to print 
almost all of my data. The usual exception to this is 
to load the alpha register and use the PRA command. 
For the buffer, the commands are ACA to accumulate 
alpha data, ACX to accumulate data from the X register, 
PRBUF to print the buffer left-justified, and ADV to 
print the buffer right-justified. I usually try to print the 


alpha strings in double-spaced letters (with Flag 12 set), 
and the numeric data I will print with the single-spaced 
characters (Flag 12 clear). Sometimes I will print special 
characters using the ACCHR command. 

Data can also be stored on magnetic cards in the HP 
system. The commands for this are WDTA to write data 
starting with register 00 and including all the data reg- 
isters; WDTAX to write data to a specific set of sequen- 
tial data registers, denoted in the X register; RDTA 
to read all the data registers; and RDTAX to read a 
specific set of sequential data registers, denoted in the X 
register. 

The positioning of the subroutines in the HP is no less 
critical that in the Tl. The HP searches for alpha labels 
starting at the very end of the coding and works its way 
backward through the program. The numeric labels are 
searched for starting from the command (GTO or EXC), 
moving forward until the label is found. If the label is 
not found when the end of the coding is reached, the 
search continues starting at the beginning of the pro- 
gram and moving forward. It is therefore advantageous 
to place subroutines that will be used repeatedly at the 
end of the coding with an alpha label, arid branches 
or hard “GO TO” statements should be accomplished 
using numeric labels downstream of the command. As 
I said before, certain alpha labels are treated like numer- 
ics, and numeric labels 00 through 19 are treated differ- 
ently from labels 20 through 99. Check the Owner's 
Manual for these differences. 

Where | think of the TI-59 as my 1977 Caprice Classic 
station wagon, the HP-41CV is my 1984 Audi 5000 
S Turbo Coupe. Both accomplish the same thing, 
but each has its own style. The TI affords simple, 
direct, no-nonsense programming with almost no hid- 
den glitches. The HP, on the other hand, is complex, 
powerful, fast, superbly flexible, and very portable. 
But there is almost always something hiding deep 
within its electronics that is just waiting for the pro- 
grammer to stumble upon, and the results are not al- 
ways preferable. 


A Word About the Applicable Codes 


Several codes cover the design, fabrication, and con- 
struction of refineries, chemical plants, cross-country 
pipelines, and power-generating plants, both nuclear 
and conventional. In some ways they are different, in 
some ways the same. Vast committees sit down and 
decide what stresses should be allowed and how they 
should be combined, how certain components should 
be fabricated and what the test procedures are. Most 


people require cross-training to convert from one code 
to another. 

For the most part, the programs in this text are con- 
figured for ASME/ANSI B31.3, Chemical Plant and Pe- 
troleum Refinery Piping Code. This volume covers all 
the piping systems within the defined boundaries of the 
processing plant. The code is probably the easiest to 
read and interpret, and the most widely used, in the 
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TI's ability to store data on a magnetic card to lessen the 
impact of string labels. The codes for all or most alpha 
strings are stored on a card and read in when the pro- 
gram is loaded into the program memory. | use registers 
30 through 59 for this task, which corresponds to data 
bank number 3. The reader can find this in the TI-59 
User’s Manual. If the output data will be printed in a 
certain order, a loop may be used that references the 
data memories and the string memories. 

Finally, there is the positioning of the subroutines. 
Because I use global labels for almost everything, there 
is a certain logic to the way I locate the subroutines in 
the coding. The TI-59 searches for the label starting at 
Step 000. A hard-coded ““GO TO” statement will trans- 
fer control of the program directly to the step number 
coded, but all label searches begin at the beginning. 
Therefore, I putall the subroutines at the beginning and 
the controlling routines or main calculating routines 
toward the end. Input routines are almost always the 
first or second routine in the coding. The result of this 
positioning is that the program takes less time to run. 
The shorter the search, the faster the execution. The 
program that demonstrates this the most is the Elastic 
Center Program, TI-59-1. Because I had to rely so heav- 
ily on subroutines, the positioning was critical to re- 
duce the running time. As it is, the execution time 
is about a minute between members. When the reader 
looks at the coding for this program, he/she will see 
that the main controllers are simply series of calls to 
subroutines. 


The HP-41CV 


I don’t want my readers to get the idea from the 
preceding that I do not like the HP or that | prefer the TI. 
Neither is true. If I had to keep one of the systems, it 
would be the HP. It is more powerful, more portable, 
has more memory, executes faster, and addresses the 
alpha-numeric string in a simple, direct, and logical 
manner. But. . . 

I have some gripes about the HP machine. If the 
program is sizable enough, it may take several seconds 
for the calculator to enter the programming mode. 
Rather than simply be ignored, the printer commands 
will halt execution of a program if the printer is not 
hooked up. Back-stepping through a program is a major 
irritation because of the time required, and there are not 
any of the built-in operations described for the TI. But 
the biggest fault of the HP system is the way the card 
reader works. 

HP wanted the 41C system to be compatible with its 
HP-67/97 calculators. Therefore, the magnetic cards 
carry only sixteen registers, or roughly 112 keystrokes 
per card side. This means for the Elastic Center Pro- 


gram, which has almost 1750 bytes, takes nine cards to 
store. On the TI, the same analysis, which is only mar- 
ginally inferior to the HP version, can be stored on four 
cards. Also, the card reader runs off the battery in the 
calculator. This wouldn't be bad if it were not that it 
runs off the battery even when the charger is hooked 
up. Unfortunately, the charger will not charge as fast as 
the card reader will drain. If the user has low batteries 
and wants to load a large program, he/she must wait for 
the batteries to charge sufficiently to run the card reader. 
The HP will not load partial programs. 

One more gripe before I get to the good stuff. If the 
card reader, which is also the card writer, does not 
transfer the program correctly to the magnetic cards, 
the user cannot simply rewrite that card. All the cards in 
that program must be rewritten from the beginning. Itis 
for this reason that I do not lightly dump a program 
from the HP’s memory to do a simple task but will 
instead use the TI. 

Except for the above-mentioned problems, the HP- 
41CV is a dream to use. For the most part, the two 
calculators speak the same language, so I did not have 
many problems learning the system. The HP hasa much 
larger vocabulary, owing to the use of the ALPHA 
mode to spell out those commands that do not appear 
on the keyboard. Also, the HP can print about 120 
alpha-numeric characters, whereas the TI can print only 
49. The HP canalso build special characters using the 7 x 
7 dot matrix printer. 

A major programming tool of the HP is the loop 
commands. ISG and DSE allow the use of one register 
as both a pointer and a counter. While not as simple as 
those of the TI, these commands can be used to subtract 
or add a 1 to a specific register. 

The PROMPT key stops the program and displays an 
alpha string in the calculator display. This ‘prompts’ 
the user for an input or analysis choice, or a yes/no 
decision. If the program is to print the prompt string 
and the corresponding data that is input, I use a trick. 
Because I almost always print data using the print buf- 
fer, I wait until after the PROMPT command to accumu- 
late the alpha string into the buffer. The reason is that if 
the user makes an input error and reinitializes the pro- 
gram, the alpha string is not stuck in the buffer, which 
will ruin the appearance of the first data printed out 
after reinitialization. 

The HP can make labels out of just about anything. 
Any alpha string can be used to label a subroutine or 
a main controller. Any two-digit number from 00 to 
99 can also be used, although the way the calculator 
searches for numeric labels is not as good as the way it 
searches for alpha labels. There is also a series of special 
alpha labels that act more like numerics. The reader is 
encouraged to study the Owner's Manual to get all this 
straight. In the programs here, I usually call the labels 


industry. [t contains design for pressure components, 
including pipe, allowable stress values for metallic and 
nonmetallic materials, weld reliability factors, strain- 
related stress range definitions, special precautions for 
hazardous materials such as anhydrous ammonia and 
hydrogen sulfide, and stress raiser or stress intensifica- 
tion factors for components. In the Elastic Center Pro- 
grams, the stress range calculation is based on this 
code, which translates to some of the other codes but 
not to others. Specifically, the torsion stress is not inten- 
sified when added to the bending stress. If the reader 
is using one of the other codes, the changes to the 
program can easily be made by the most novice of 
programmers. 

ASME/ANSI B31.4 and ASME/ANSI B31.8 are the 
two codes that govern the cross-country transportation 
of liquids and gases in pipelines. They both come under 
the auspices of the Department of Transportation, which 
dictates certain design parameters. Where B31.3 uses 
detailed and extensive tables for the allowable stresses 
for different materials, the Liquid Petroleum Trans- 
portation code (B31.4) and the Gas Transmission code 
(B31.8) refer to a half-dozen pages that talk about the 
Specified Minimum Yield Stress, or SMYS. All allow- 
ables are based on this number and are qualified with 
certain reduction factors. B31.8 has population density 
factors that reduce the allowable as the density in- 
creases. As | interpret this, the code committee wants a 
higher factor of safety for transported gases under pres- 
sure for heavily populated areas. It also means that 
getting away from it all can be hazardous to your health. 
The allowables are substantially higher than B31.3, and 
the materials tend to be higher-strength metals. The 
Pipe wall thickness calculations are also based on SMYS, 
so the pipe walls tend to be thinner. Because the piping 
may be stressed close to its yield strength, neither code 
allows support attachments to be welded directly to the 
Pipe, which may leave residual stresses. A full encircle- 
ment pad is welded to the pipe and heat treated, and 
the attachments are welded to the pad. (Simple, huh?) 
The stress range calculations are the same (torsion stress 
is not intensified), and the stress intensification factors 
for the components are the same. Pipe wall thickness 
calculations are slightly different. 

- Conventional power generating plants and certain 
areas of nuclear power plants are covered by ASME/ 
ANSI B31.1. This code reads very much like B31.3 but 
has some distinct differences. Most notable is that in the 
stress range calculations, the torsion stress is intensified 
along with the bending stresses. Also, the allowables 
for the same materials are substantially lower. I believe 
this is because the power generation is usually accom- 
plished using superheated and saturated steam, which 


has considerable corrosive and erosive effects on steel 
Pipe. By limiting the stress to a value further from the 
yield point, complications like steam explosions can be 
avoided. B31.1 is closely linked to ASME Section VII, 
the Pressure Boiler code. 

ASME Section III covers the design of piping com- 
ponents, piping, pressure connections to vessels, 
pumps, and so forth that are involved in the design, 
fabrication, construction, and testing of nuclear power 
plants. It is the code with which J am the least familiar, 
so I won't try to discuss its finer points. Subsection NB 
deals with the Class 1 components, those piping com- 
ponents that come into direct contact with the radio- 
active material in the core of the plant. The stresses 
investigated are many and varied, including thermal 
transients, shock loads, seismic anchor movements, 
earthquake, support loading, pipe whip (where the 
piping system breaks loose and tries to take off for 
Cleveland), and thermal gradients, to name a few. The 
stresses are all compared against Sm, or what is called 
the stress intensity. It is measured from the minimum 
operating condition to the maximum operating condi- 
tion. The allowables are substantially higher than the 
other subsections, but the stresses investigated are 
more complex. The big equations for this section are 9, 
10 and 11. Torsion stress is most definitely intensified, 
along with the bending stress. 

Subsection NC covers Class 2 components, critical 
systems that are not in direct contact with the primary 
water. This reads very much like the previous subsec- 
tion, except that the stress allowables are lower. These 
systems can still cause a great deal of trouble if they fail, 
so the level of investigation is only slightly less intense. 

Finally, Subsection ND covers Class 3 components, 
which make up the less critical systems’ This section 
looks very familiar to one conversant with B31.3. The 
stréss allowables are lower than B31.3, but the stress 
range formula is the same, with the exception that the 
torsion stress is, again, intensified. The intensification 
factor chart greatly resembles the refinery piping code. 
The pipe thickness equations are the same, and the 
pressure reinforcing pad calculations are very similar. 

AsI stated before, most of the programs are configured 
for the refinery piping code, but the coding changes can 
easily be accomplished. I cannot stress the necessity, 
however, of thoroughly testing these changes. In my 
opinion, B31.3 cuts a kind of middle road between all 
the other codes. Most of the time, if it satisfies B31.3, it 
will probably satisfy the others. The nuclear industry 
demands strict adherence to the equations, however, so 
any analysis done on the calculator that is to be submit- 
ted as the final analysis in this industry should be 
reconfigured. 
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Program TI-59-1: Thermal Expansion Analysis of a Two-Anchor 
Piping System 


Introduction: s 


TI-59-1 is the mating of the Elastic Center method of 
thermal pipe stress analysis with a state-of-the-art pro- 
grammable calculator. The program analyzes a two- 
anchor piping system for thermal expansion or contrac- 
tion in single or multiple planes. Bend radii at changes 
of direction, including square corners, can vary through- 
out the analysis, and anchor movements may be intro- 
duced at either anchor. The flexibility matrix may be 
saved on magnetic cards for reanalysis of one system 
under varying conditions. The analysis conforms with 
ASME/ANSI B31.3, 1980. 


Nomenclature: 


The user inputs the system geometry, pipe size, and 
thermal conditions to the program. The data consist of 
the following items: 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 

Modulus of elasticity (Mega psi) 

Thermal growth rate (in/100 ft) 

Elbow radius (ft) 

Elbow flexibility factor 

Direction code for member input where x is 

member number: 

1 = X-oriented member 

2 = Y-oriented member 

3 = Zoriented member 

Member length, measured to elbow tangents 

(ft) 

: Anchor movements at Anchor 1 consisting of 
the algebraic difference of the actual move- 
ment at Anchor 1 minus the actual movement 
at Anchor 2, one number for each of the three 
orthogonal directions (in) 


E: 
e: 
R: 
K: 
Dx: 


ix 


: X-coordinate of stress point to be examined 
Y gituat of stress point to be examined 
Z D ciltoeks of stress point to be examined 
aes intensification factor 


N << x 


re 


TI-59-1 is executed in two parts. Part 1 is the geometry 
input, and Part 2, the equation solver and stress ana- 
lyzer. A number of keys are used to run the program: 


Part 1 


E: To initialize program and input first R and K 
values 
A: To input direction codes and member lengths 
RST: To input R and K values after the initial set 
R/S: Used in conjunction with the above keys 


Part 2 


A: To input OD, T, E, and e 
B: To execute 
E: To input coordinates of stress points 


A’: To execute stress analysis for an X-oriented 
member 
B’: To execute stress analysis for a Y-oriented 
member 
C’: To execute stress analysis for a Z-oriented 
member 
Method: 


The Elastic Center Method of piping stress analysis, 
sometimes called the Spielvogel Method, is discussed 
in great detail in the Grinnell Company’s Piping Design 
and Engineering. Some excerpts are included here, but 
the reader is encouraged to examine the full text for a 


complete understanding of the analysis. Basically, the 
analysis finds the point in each of the three orthogonal 
planes where the moment in that plane is zero. This 
Point is the “elastic center” of that plane, and each 
member in the piping system has a moment of inertia 
and a product inertia with respect to it. When all the 
moments of inertia and product inertias for each mem- 
ber are summed up, the result, for a three-dimensional 
system, is a 3 X 3 flexibility matrix. 

The matrix may be a simple 3 x 3 because the mo- 
ments are all zero at the planar elastic centers. Solving 
with respect toa 1 x 3 displacement matrix results in the 
three orthogonal system forces. These forces, in con- 
junction with the developed distances, may be used to 
calculate the moments and stresses at any point. 

When the Elastic Center Method was originally used, 
modem mainframe computers were unavailable or too 
costly. Therefore, convenient analysis forms were used 
to keep all the data straight and to reduce the errors that 
are a part of manual calculations. Still, a fairly straight- 
forward analysis could consume several hours. 

In simplifying the analysis, the forms also greatly 
limited its capabilities. Because it used the constant 
C, which is a combination of the thermal growth rate 
and the modulus of elasticity, the method was limited 
to metallic pipe at the cold modulus. Also, the method 
did not easily account for anchor movements. 

TI-59-1 allows the user to put back in all the things 
that had been removed. The modern programmable 
calculator has numerous memory registers that can sep- 
arate and remember all the data that would become too 
cumbersome if the analysis were to be done entirely by 
hand. Also, today’s calculators can perform tens of 
calculations per second and can thus complete in a 
matter of minutes an analysis that would take several 
hours by hand. 

Another limitation of the original method has been 
eliminated. 

Originally, the entire system was first analyzed to 
find the various elastic centers, and then all the inertias 
were summed with respect to those points. TI-59-1 
uses the Luengas Summation System, named for its 
developer, Carlos E. Luengas. This system sums all the 
inertias with respect to the point of origin and then 
transfers the inertias to the elastic centers of each plane 
after the geometry input is complete. Thus, the calcula- 
tor does not need to “know” the geometry beforehand. 

Anchor movements are also possible with this pro- 
gram. The user may elect to add to the analysis displace- 
ments of the two anchors with respect to each other, 
thereby allowing the user to perform a seismic anchor 
movement analysis on a system. (This is applicable to 
static analysis only.) 

Finally, the program allows the user to save the 

summed inertias on a magnetic card. This step is some- 


what similar to saving the decomposed stiffness matrix 
in a major mainframe program. It allows the user to 
reanalyze the same system for various combinations of 
anchor movement and/or various thermal conditions 
without having to reinput the geometry each time. 

Accuracy was measured against the same geometry 
and thermal conditions analyzed by a major mainframe 
stiffness matrix method. The results follow: 


MAINFRAME 
TI-59-1 ANALYSIS 

Fx 2823 # 2533 # 
Fy —1520 # —1385 # 
Fz 161 # 132 # 
@ Al 
Mx 8330 ft-lb 8010 ft-lb 
My 13,941 ft-Ib 13,575 ft-lb 
Mz —1791 ft-lb —1546 ft-lb 
@ A2 
Mx —8896 ft-lb —8631 ft-lb 
My —15,533 ft-lb —15,127 ft-lb 
Mz —3306 ft-Ib —28721 ft-lb 
Maximum stress 

1180 psi (ST) 1107 psi (ST) 


12,779 psi (SB) 
12,995 psi (SE) 


12,434 psi (SB) 
12,596 psi (SE) 


Limitations: 

The program is set up to handle any number of mem- 
bers, but only two anchors. There is no provision for 
intermediate supports. Fully fixed rigid anchors are 
assumed. Only English units may be used. The pro- 
gram will only analyze one pipe size and schedule at a 
time. Colinear members will not be analyzed correctly. 
The analysis does not include dead weight or internal 
pressure. 


A Word About Modeling: 


Obviously, not all piping systems will be routed with 
only two anchors. TI-59-1 is a tool to be used by the 
analyst. Complex systems must be broken down into 
small sections, from support to support, and combined 
as a whole by the analyst by manipulating the thermal 
conditions and anchor movements to best simulate the 
real situation. Many iterations and analyses may be 
necessary, 


Special Note: 


When performing the stress analysis at various points 
in the system, the user should be alert to the signs of the 
moments that are printed. At the first anchor, the mo- 
ments will have the correct sign. At the second anchor, 
the moments will be printed with the opposite signs from 


what is the case. At all points in between, the moments 
may or may not have the correct sign. This is because, 
given the limitations of program space in the TI-59, the 
Program does not “know” which side of the elastic 
center the point is on. Analysts are cautioned to use 
their best judgment when determining the sign of inter- 
mediate moments. 


User Instructions 


Program Number _TI-59-1 Elastic Center Part 1 
Step Instructions Input 
1 Reapportion the calculator's memory proportions, 4 
2 Read in magnetic cards for Part 1 (two cards). 
3 Initialize program and input radius of the first elbow (R1). —-R1 
4 Input the K factor for the first elbow (K1). Kl 
5 Input the direction code for the first member (D1). D1 
6 Input the member length of the first member (L1). Li 
7 Input radius of next elbow. Rx 
8 Input K factor for the next elbow. Kx 
Note: If the next elbow has the same data as the last, 
skip to Steps 7 and 8. 
9 Input the next direction code (Dx). Dx 
10 Input the next member length (Lx). Lx 
Repeat Steps 7 to 10 for each member that follows, 
skipping the R and K values where applicable. When 
the final data has been input and the coordinates of the 
next-to-last point have been printed, proceed to the 
following steps. 
11 Complete analysis. 
12 Record the data onto magnetic cards. 
(This step may be skipped.) 
13 Read incards for Part 2. 
14. Input OD. OD 
1S ——‘Input T. £ 
16 = Input E. E 
17 _ Inpute. e 
18 Continue analysis. 
19 Input X-anchor movement. X-AM 
20 ‘Input Y-anchor movement. Y-AM 
21 Input Z-anchor movement. Z-AM 
22 ~~ ‘Input X-coordinate. x 
23 ‘Input Y-coordinate. Y 
24 Input Z-coordinate. Z 
25 Choose orientation. X-orientation 
Y-orientation 
Z-orientation 
26 Input I factor needed. I 
Note: If the I factor offered is correct, only press R/S. 
Repeat Steps 22 through 26 for all points where 
moments and stresses are desired. 
Note: To reanalyze a system using the data stored on 
magnetic cards: 
27 ~—Read in cards for Part 2. 
28 Read in data card. 
29 Go to Step 14. 


Keystroke 


2nd 


E 
R/S 

A 
R/S 


OP 17 


RST R/S 


R/S 


A 
R/S 


R/S 
2nd 


NNNAD wn 
RRR SS WSS Ser >e> 


R/S 


WRITE 


aQe> 


Display 
639.39 


R1 
Kl 
DI 
0. 
Rx 
Kx 


Dx 
0. 


emMHO A 
s] 


0. 

Total delta X 
Total delta Y 
Fz 

x 

¥ 

Z 


I (offered) 
SE 


Data Register Contents 


REGI- REGI- 
STER DATA STER DATA 
00 IND 30 L2; OD , 
OL | Lxy; Xi 31 D2; T 
02 Lx; %; Yi 32 Used; E 
03 ly Fi Bt 33, L (straight); e 
v4 | Ixy; IND 34 | (149) Kor 1.15) R3); X (xy) 
05 | Ix (xy); IND | 35 (7/2) (K or 1.15) RR); ¥ (xy) 
06 | ly (xy); IND 36 | IND; & (xz) 
07 | Lxz; Sx 37. | IND; Z (xz) - 
0s | Lx; x Ix; Sy 38 | IND; y (yz) 
09 «| Lz 2% Ixy Sz 39 IND; Z (yz) 
10 | Ixz; haz 
11s | Ix (xz); Ixy The following data must be stored in memory 
re kbp y before the cards for Part 2 are recorded. 
13 Lyz; lyz aot ae i 
u [em =| e 
15 | Lz; 3; lyz = 54 33 
16 | Lyz; k 
17 ‘| ly (yz) 
18 Iz (yz) 
19 x 
20 y; Fx 
21 |Z; Fy 
22 R (next) Fz 
23 K (next); developed L, Y 
24 Developed length, Z 7 
25 R (this); developed L, X | 
26 El#; Ipipe; Mx 
ae K (this); My 
28 | LI; Mz 


D1; i (last elbow) 


INDEX OF 
TERMS 


R: Elbow radius (ft) 


K: Elbow 
flexibility factor 


D: Direction code for 


member input 
1 = X-member 
2 = Y-member 
3 = Z-member 


L: Member length (ft) 


X: Point coordinate in 
the X-direction (ft) 


Y: Point coordinate in 
the Y-direction (ft) 


Z: Point coordinate in 
the Z-direction (ft) 


*; End-of-data flags 


TI-59-1 Input Sheet 


Elbow radius and K factor for elbow at 
Point 


Direction code and member length for 
Member 


Elbow radius and K factor for elbow 
at Point 


Direction code and member length 
for Member 


Coordinates at Point ___2 


Elbow radius and K factor for elbow 
at Point 


Direction code and member length for 
Member 


Coordinates at Point _s> 


Direction code a member length for 
Member 


Coordinates at Point ___ # 


Coordinates at Point 37 


10.75 
0. 365 
2red 
6.17 


- 0000000041 


0. 
-0. S632 


0. 
-O0. 7404 


0. 
1.1106 


TI-59-1 Output Sheet 1 


Pipe outside diameter (in) 

Pipe wall thickness (in) 
Modulus of elasticity (Mega psi) 
Thermal growth rate (in/100 ft) 


Inertia matrix determinant 


X-anchor movement (in) 
Total delta X between anchors (in) 


Y-anchor movement (in) 
Total delta Y between anchors (in) 


Z-anchor movement (in) 
Total delta Z between anchors (in) 


B94. # | Applied at Anchor 1 (Jb) 
S71. ‘ Applied at Anchor 1 (Ib) 
-962. FZ | Applied at Anchor 1 (Ib) 


The inertia matrix determinant is printed automati- 
cally by the Master Library Software program, used by 
the program (ML-02). 

The anchor movements input by the user represent 
the total algebraic difference between the movement at 
Anchor 1 and the movement at Anchor 2. 


Example: Anchor 1 moves 0.25” in the positive X- 
direction. 
Anchor 2 moves 0.10” in the negative X- 
direction. 
The anchor movement that the user inputs is: 
0.25 — (—0.10) = 0.35” 
If the movement at Anchor 2 had been 0.5” 
positive, the user input would be: 


0.25 — 0.50 = —0.25” 


TI-59-1 Output Sheet 2 


X-coordinate (ft) 
Y-coordinate (ft) 


Z-coordinate (ft) 

x Orientation flag 
-10881. Mx (ft-lb) 
TOST. My (ft-lb’ 
-FPSE. Mz (ft-lb) 


I factor (offered) 
I factor (used) 


Torsion stress 
Bending stress 
Stress range 


X-coordinate (ft) 
Y-coordinate (ft) 
Z-coordinate (ft) 
Orientation flag 
Mx (ft-Ib) 

My (ft-lb) 

Mz (ft-Ib) 

I factor (offered) 
I factor (used) 


Torsion stress 
Bending stress 
Stress range 


X-coordinate (ft) 
Y-coordinate (ft) 
Z-coordinate (ft) 
Orientation flag 
Mx (ft-lb) 

My (ft-lb) 

Mz (ft-lb) 

I factor (offered) 
I factor (used) 


Torsion stress 
Bending stress 
Stress range 
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The moments at Anchor 1 (0, 0, 0) will have the correct sign. 
The moments at Anchor 2 (last point) will have the opposite sign. 


10 


Source Documentation 


ITT GRINNELL — PIPING DESIGN AND ENGINEERING 


MULTIPLE PLANE SYSTEM CONTAINING CIRCULAR ARCS 


Bend R=5D, =4.16 
LR.Ell R =1.5D, = 1.25’ 


° he 
ss <r 
aye 
x 
Sy h 
| 
we i 
xy 
Given: A 10 inch piping system in accordance with Reaction moments M,,, M;, and M,, at points 
the sketch shown above. a@andh. Amount and location of Maximum Combined 
Maximum Operating Pressure P 350 psi Stress, s: 
Maximum Operating Temperature 750° F Solution: Project the piping system into the three 
Piping Specification A.S.T.M. A-106 Grade A planes, determine the location of the centroid and 
Paix calculate the line inertias in the same manner as out- 
. 1 = 0.365 inches lined on page 56. except that the flexibility factor, k, 
Z page 2 and 14 must be included for all curved segments in the plane 
= schedule 40 of projection. 
d = 10.02 inches Total J; = 1993 + 3283 = 5276 ft? 
Ip = 160.8 inches* Total Ty = 2802 + 3811 = 6643 ft? 
Sm = 29.9 inches? Total J; = 3091 + 1978 = 5069 it® 
= 78.9} 2 
Ay = 78.9 inches’ Tz, = 1334 ft? 
Am = 11.91 inches?> page 14 Iz, = 1774 ft8 
Reena = 244 Tye = 7061 
Toend = 1.17 L,cIp = 14 X 996 X 160.8 = 2,242,195 Ib ft® 
Kabow = 8.15 Lycl p = 12 X 996 X 160.8 = 1,921,882 lb ft? 
tabow = 2.61 LycIp = 18 X 996 X 160.8 = 2,882,822 lb ft? 
Cat 250° = 996 page 11 (1) F, 5278 — Fy 1400 — F, 1779 = 2,242,195 
Allow. S4 = 17,675 psi page 3 (2) —F, 1400 + F, 6643 — F, 706 = 1,921,882 
Find: Reaction forces F:, Fy and F, at point h (at (3) —F,1779 — Fy 706 + F, 5069 = 2,882,822 


point a reaction forces equal and opposite). 
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EXPANSION AND STRESSES 


PROJECTION IN XY PLANE 


To find c.g. of each segment see page 44. 
Lengths: 

ab = 15.84! 

ed = 8,59’ 

of = 12.50 

gh= 3.84’ 


ox 
Fea 


be — R = 4.16’ 
de — R = 1,25’ 
fo-—R = 4.16’ 


1.81 X 1.25 
1.3 X 12.59 
1.81 X 4.16 


ab) VI 15.4 X 7.32 X 8.53 = + 969 
t | xB $3,440,137 X 4.16!) + 1.57 X 2.44 X 4.16 X 5.81(—2.04) == 165 
a | VI 8.58(—1.13)(—3.55) =F HA 
de | XI 1.81 x 1.25(—6.23)(—3.55) =+ 50.0 
g¢ | vin 13 X 12.59(—6.68)(=3.55) = + 388.0 
fo | x 1.81 x 4.16(—6.68)(—2.08) = + 102.5 
m | Vi 3'84(—6.68)(2. 53) == 649 
Ing = $1334 
iB 
e | XIVB OS -HY + 15,848.53) = 1494 
be | AVILA | 2.440.190 x 4.10) + 1.57 x 2.44 x 4.1602.00) = 925 
ed | xIvVA | 8.500.535)! = 108.3 
de | xXvita | 1.81 X 1.250.557 = 3855 
g | XvI 113 x 12/50(3.55)! = 206.3 
ig XVIIIB 1.15(0.149 X 4.16) + 1.81 X 4.16(2.04)* - 43.7 
oa | xive | SEP + 5 suco.say - 2.3 


ab 15. 84(7.32) = 
be XVITB 2.40 149 x 4.161) + 1.57 X 2.44 X 4.16(5.81)* = 564 
ad XIV B f ll + 8.50(1. 13)? - 8.8 
de XVIII B 1.15(0.149 x 1.258) + 1.81 1.25(6.23) = 881 
of XVI 1-4 X 12.59(8. 68) = 730 
fy XVIII 4 i: - 

ry , : = 
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GRINNELL — PIPING DESIGN AND ENGINEERING 


PROJECTION IN XZ PLANE 


To find ¢.g. of each segment see page 44. 
Lengths: 

ab = 15.84’ 

d= 8.59. 

of = 12.59 

gh = 3.84’ 


Radi 


be — R = 4.16’ 
de — R = 1.25’ 
fg-R = 416’ 


—— 
ab 1.3 X 15.8% +288 ‘2 
be Vv 1.81 X 4.16 + 94.1 + 135.8 
od I + 47.7 + 154.8 
de peed 1.57 X 8.15 X 1.25 = + 47.2 + 203 
of I 0 + 131.3 
I9 Vv 1.81 X 4.16 = 0 +4 
gh pe 1.3 x 3.84 - ry A 
ZL = 17.85 : ZL! = +1085.6 
437.0 1085.6 
Bas $5.61 ft re etme 
Tia | 
ab VIII 1.3 X 15.84 X 8.39 X 4.06 +701 
be XI 1.81 X 4.16 X 6.88 X 4.06 + 210 
ed VI 8.59(—.06)4.06 pa 1 
de XB 8.15(0.137 X 1.25%) + 1.57 X 8.15 X 1.25(—5.16)(3. 61) — 296 
4 VI 12.50(—5.61)(—3. 49) + 248 
‘9 XI 1.81 X 4.16(—5.61)(—12. 43) + 525 
gh VII 1:3 x 3.84(—5.61)(—13.94) + 300 
Ten = +1774 
Te 


ab 15. 84(4.06)" 
te | XVIA % 4, 16(4,06)! 124 
a | xIva “504. 06) 12 
de | XVIA | §.5(0:140 x 1.25 + 1.87 x 8.15 x 1.250.60 au 
¢ | XIVB 2.60" 4 12.59(3.49)! a0 
f | xvore | 1aK0. 240X416) + 1.81 x 4.1002.49) 1176 
gs | XVI 13 x 3.84(13.04)" 970 
= Bs 
7. i 
ob 1.3 x 15.84(8.39)" 
be | Xvmre | 1:15(0.149 x 4.16) + 1.81 x 4.16(6.88)! 
a | XIVB (8.50) 8. 59(.08)! 5s 
de | XVITB | 8.15(0.149 x 1.25% + 1.57 x 8.15 X 1.25(5.16)8 429 
gf | XIVA 12,505.61)? 396 
jo | Xvmta | 181 x 4,165.61" 237 
gh XVI 1.3 x 3.84(5.61)* 187 
he 3081 
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Se Bars 


Bsaear & 


a z 7 
ab 1 15.84 +4.08 + 64.6 +18 285.5 
be Vv 1.81 x 4.16 = 7.54 6.49 - 48.9 +18 135.8 
ed II 1.3 x 8.59 = 11.18 -8 — 89.5 +18 201'5 
de y 1.81 X 1.25 = 2.26 =8 = 18.1 +17,55 39.7 
4 I 12:59 =8 100.8 +1046 131.7 
g 1m 1.57 X 2.44 X 4.16 = 15.94 6.49 103.5 + 1.51 24.1 
gh I 3.84 1.92 - 74 0 0 
2L = 69.19 ZLy = —303.6 ZL = 818.3 
303.6 818.3 
T= ap 7 4.30 fe fm ig 7 11.83 ft 
7 
ab v1 15.84 X 8.4 = + 827.7 
be XI bareaia—s, So x6. 17 == 97.7 
a | Vi 1.3 X 8.50(—3.61) x 6.1 = — 249 
de XI 1 81 x 1. 25(73. 61), x 5.72 =— 46.7 
V1 12.50(—3.61)(— m+ 62.3 
i XA 2.440. i 418) 4. 57 X 2.44 X 4.16(—2.10)(—10.32) = + 321.4 
gh VI 3.84 X 2.47(—11.83) == 112 


EXPANSION AND STRESSES 


PROJECTION IN YZ PLANE 


: To find e.g. of each segment see page 44: 
Lengths: 
ab = 15,84’ 
cd = 8,50’ 
ef = 12.59’ 
gh = 3.84’ 
Radii: 
be — R = 4.16’ 
de — R = 1.25’ 
fg —R = 4.16 


. 
rs 


Centroid (calculated with origin at point h) 


= 
1. ; 2 

1:3 x 8.59(6.17)! 26 
1.18(0. 149 X'1.25) + 1.81 x 1,25(6.72)* = % 
2 SY 12,501.37) = 190 
2.44(0.149 X 4.16) + 1.57 x 2.44 x 4.16(10.32)! = 1724 
3,841.83)" = 337 


(15. 84) ey 


(15-80 4 18.84(8.47) = 1468 
1, 1500. 149 Xx 4. 16) +1. 81 x41 10)" = 46 
1.3 x 8.59(3. 61)" ee - 146 
1,81 * 1.25(3. ay - 29.5 
12.59(8. 61)! = 164.0 
2,440,149 X 4.16 + 1.87 X 2.46 X 4,162.10) = 06:5 
BSA + 3.04¢2.47) = 2 
Le 1973 
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GRINNELL — PIPING DESIGN AND ENGINEERING 


9 


M = V(4359)! + (7283)* = 8488 Ty = T0683 
+803 4.45 + 571 X 6.68 Same aa +571 X 11.83 + 960 X 4.39 
h = +7788 a- = +10,969 
_—__—_— TT 
M = V(7788)* + (10,969) = 18,453 T, = 1083 


F, = 571 lb 


803 X 3.55 + 571 X 6.68 
= +644 


M = V(7895)" + (6275)* © 10,088 T. = OH 
Same ase 808 X 9.78 + 980 x 5.41 +571 X 7.67 = 960 X 3.41 
= +644 = =3348 = +914 
M = VSS)" + O14)! = 3471 Tr = 4 


+893 X 0.61 + 571 x 6.68 
= +4359 


1834 +6643 
+1334 37 
0 eat 
1774 706 
+1774 4490 
+1155 
Q 0 
-?, 

roe 


SOLUTION OF EQUATIONS 


F, = 960 Ib 


MOMENTS IN FOOT POUNDS 


+893 X 2.81 + 960 X §.61 
= +7805 


893 X 13.94 + 960 x 5.61 
= —7063 
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2,242,195 

+425 
1,921,882 
567,275 
2,489,157 
oA 8S 
2,882,922 
455,516 
4,091,718 
cae 
+980 
+960 


+395 
+305 


+125 
+425 


G +10,510 4429 = +12211 
ie ee | 
M = V(10,510)? + (12,211)? = 16,122 Ts, = 29 
+893 x 0.61 — 571 x 7.32 Same as a —371 x 6. 
b = = 3635 = = 4429 aia 
M =m V(3635)! + (2995)? = 4710 Ts = 4429 
—893 X 3.55 — 571 X 3.16 +893 X 4.06 — 960 X 4.23 —571 X 6.17 — 960 X 3.61 
z = 4974 = -435 = —6989 
M om V (4974)? + (435)? = 4993 Ta, = 6989 
883 X 3°55 + 571 K 5.43 +893 X 4.06 + 960 X 4.36 Same asc 
a 70 sig = 6989 
Mf = V(7811)? + (70)! = 7811 T, = 6989 


571 X 4.92 ~ 960 X 3.41 
275 


fe a ee 


+571 X 11.83 + 960 X 0.55 
= +7283 


—d71 X 6.17 + 960 x 16.39 


EXPANSION AND STRESSES 


I. From inspection the maximum bending moment, 
M, is 16,11] ft Ib occurring at point a which is 
straight pipe. The accompanying torque T is 
4429 ft lb. 

II, The maximim torque T is 6989 ft lb in line ed 
and the larger accompanying bending moment, 
M, is 7811 ft lb at point d which is curved pipe 
with an 1 factor of 2.61. 

IN. The maximum bending moment, M, in curved 
pipe with an i factor of 2.61 is 10,085 ft lb at 
point e with an accompanying torque T of 644 
ft Ib, 

IV. The bending moments in curved pipe with an 7 
factor of 1.17 are relatively small (points }, ¢, f, 
and 9) and therefore need not be considered. 

The maximum expansion stress is determined in the 

manner outlined on page 3 as follows: 


Case I (st point a) 
Sf = 16,111 ft lb 
= 16,111 X 12 = 193,332 inch pounds 
T = 4429 ft lb 
= 2429 X 12 = 53,148 inch pounds 
193,332 
29.9 
T _ 33,148 
2S, 2x 209 
az = Ve) + ir)! = V(6366)? + 4(889)? 
= 6706 psi 


= 6466 psi 


— = 859 psi 
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Case IT (at point d) 

M = 7811 ft lb 

= 7811 X 12 = 93,732 inch pounds 
T = 6889 ft lb 

= 6889 X 12 = 83,868 inch pounds 

=—jie 98,732 
Sn 299 
T _ 83,868 
2S, 2X 29.9 
tz = V0)? + 40@r)? = V(8182)" + 401402)? 

= 869 psi 


X 261 = 8182 psi 


‘r= = 1402 psi 


Case ITT (at point e) 
M = 10,085 ft lb 
= 10,085 X 12 = 121,020 inch pounds 
T = 644 ft lb 
= 644 X 12 = 7728 inch pounds 
ag ow hg 121,020 
Ba 29.9 
T T7128 . 
25, "2x 29.9 ~ PS 
ty = V (83)? + (sr)? = (10,564)? + 3(129)? 
= 10,567 psi 
The maximum expansion stress se is 10,567 psi, 
occurring at point c, and is less than the allowable 
Stress range S, of 17,675 psi. 


X 261 = 10,564 psi 


Sy oil 


Sample Problem 


Program: —TI-59-1 


Point number 


OD = 10.75 
t = 0.365" 
© E = 27.9EE6 psi 
e = 6.17"/100' 


Step Input Stroke Display Printer Comments 
PART ONE 


4.167 E 4.167 4.167 
2.44 R/S 2.44 2.44 Stores K in R23. 

2. 2. Stores D1 in R31. 

8 R/S 0. Stores L1 in R30, sets all pointers 
for a Y-member. Calculates the 
elbow identifier and stores it in R26. 
Sets the pointers for the first 
member in the “last” member 
Tegisters. The program always 
operates on the member previously 
input. In this case, there is no 
previous member, so no calculations 
are performed. The values for R and 
K are taken from “this” member 
registers (R22 and R23) and moved 
to “last” member registers (R25 and 
R27). 

Stores R in R22. 

Stores K in R23. 

Stores D2 in R31. 

Stores L2 in R30, sets all pointers 
for a Z-member. Calculates the 
elbow identifier and stores it in 
R26. Performs all the summations 
for Member 1 (a Y-member from g 
to h on the sketch) and the first bend 
(a Y-to-Z elbow from f to g). Rolls 
all pointers for “this” member data to 
“Jasc’ member registers. Prints the 
coordinates at Point 2. 


Stores R in R22. 


DWN 
N 
> 
GAA 


OIA 
oo 
ra 
a 
ar 
a 
oo 
a 
oO 
NK xMCUAA 


17 


13 
14 


15 


16 


29 


Input 


4.167 
2.44 
-1 

14 


-2 
20 


10.75 
365 
27.9 
6.17 


ooo 


Key 
Stroke 
RST: R/S 
R/S 
A 
R/S 


R/S 


R/S 


Display 
4.167 
2.44 

-1 

0. 


6093. 


Printer 
4.167 
2.44 
-1. 
14, 
0. 
8. 
18. 


PART TWO 


10.75 
0.365 
27.9 
6.17 
-0000000081 
0. 
-0.8638 
0. 
-0.7404 
0. 
1.1106 
894. 
571. 
-962. 
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NKxMCUAD 


NKKMCO 


NK 


FX 
FY 
FZ 


Comments 
Store R in R22, 
Store K in R23. 
Store D3 in R31. 
Store L3 in R30, sets all pointers 
for an X-member. Calculates the 
elbow identifier and stores it in R26, 
Performs all the summations for 
Member 2 (a Z-member) from e tof) 
and the second bend (a Z-to-X elbow 
from d toe), Rolls all pointers for 
“this” member data to “last” member 
registers. Prints the coordinates at 
Point 3. 
Stores D4 in R31. 
Stores L4 in R30, sets all pointers 
for a Y-member. Same process as 
above for Member 3 (an X-member 
from c to d) and the third bend (an X. 
to-Y elbow from b toc). Prints the 
coordinates at Point 4. 
Prints the end of data flags. Sets 
Flag 1 and clears the elbow identi- 
fier. As in the case of the first 
member, this last step will cause the 
program to skip the elbow routines, 
The summations are performed for 
the member from ato b. The final 
developed distances are stored in R25 
(X), R23 (Y), and R24 (Z), for the 
calculations in Part 2. 


Stores OD in R30. 

Stores T in R31. 

Stores E in R32. 

Stores e in R33. 

The program prints the metrix 
determinant and stops for tue input 
of any anchor movements in any 
of the three directions. The total 
deflection in each direction is printed 
after the anchor movement. The 
matrix is solved and the system 
forces are printed. 


X-coordinate is stored in RO1. 
Y-coordinate is stored in RO2. 
Z-coordinate is stored in RO3. 

The moments at Point 1 are 
calculated and printed. The I factor 
for the last elbow entered in memory 
is printed. 


The user-input I value is printed and 
the torsion, bending, and range 
stresses are printed, in that order. 


Step 


39 


Al 
42 


49 


input 


“14 


2.61 


2.61 


one 


Key 
Stroke 


E 
R/S 
R/S 

2nd: B 


R/S 


R/S 


RS 


R/S 


Display 


-14. 
-12, 
18. 
1.168 


6711. 


10602. 


8673. 
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Printer 


-14. 

-12. 

18. 

Y 

-12223. 
4433. 
-10517. 
1.168 


Comments 


Steps 30 through 49 calculate the 
moments and stresses at a, e, d, and 
Point 2, in that order. As stated —_ 
in the program description, the 
moments at a (Point 5) are printed 

with the signs reversed because 

of the program’s inability to tell 

on which side of the elastic center 

the input point is. 


Coding Form 
T1-59-1 Title Elastic Center Part 1 


Program Number 


lac Code Key Comments | Loc Code Key Comments Loc Code Key Comments 
I Store next R in O60 43 RCL |aand bare the 12 76 LBL |g ine: 
ad ext Ra p S ROL ao tine: 
4 D |R22, print using | 061 20 20 | distances fromthe} 121 80 GRD ae 
22 22 | PAU Q62 16 A" | origin for the 122. 89) of | #2-KR (virtual 
= 3 : a oe ea plane in question. er 35 = | length of elbow) 
med bee. 18 15 ce Ae e stored in en 
6 2 = 1 5 a ' Also calcu ae 
nie O66 16 A 126 3 ROL | (,149)(K)(R) and 
Q67 92 RT {> 27 27 | stores it in R34. 
G68 76 LBL | Subroutine: 128 65 X | All of above is for 
>1U | StorenextKinR23.} U6 18 C' | Performs 129 3 RCL | the in-plane elbow 
<2 |Print, using PAU. | G70 17 B* | calculations for 130 25 25 
m ve OTL 43 RCL |straight inertia: | 131 99 = 
Jac é O72 $5 35 |XmemberinX-y | 182 42 STO 
Gis as 6 a73 65 % |plane; 183 35° 35 
a. SBR Q?74 43 RCL | X-member in X-Z {a4 93 
Ge PAU a75 20 20 | plane; iss 01 1 
2184S | _ a76 33 Xf |¥-memberiny-z | 186 G4 4 
oS LEL | Clears all | arz 16 A' | plane. 1g7 09 3 
15 E | memories, resets | O78 43 RCL | All torsion 138 65 xX 
47 CHS | all fags. Go to 000.) O78 SE 3S | members in all 139 43 RCL 
$1_RST J 030 45 yx” |planes. is0 27 EP 
€ LEL |Subroutine:Sums | gai 03 3 idi 65 X 
16 A‘ Jinertia into correct | O82 S5 = i42 43 RCL 
3s = register. Pointeris| agS 1 i 143 25 29 
og OP R00, ass az 2 i44 45 YX 
oa ake aes 85 + i45 03 3 
cane agé 48 RCL 146 95 25 
oe ee os? 35 35 147 42 S70 
32 RIN ass 65 xX oo 
6 LBL | Subroutine: Prints | 089 43 RCL 149° 17 B* | Calls BY. For 
Se FRU | data with alpha | 030 13 19 150 43 RCL | in-plane elbow the 
hk label. 031 33 Ne 151 34 24 | signof(.137)(K)(R) 
pa js as> 16 A’ i2e = x is determined and 
Se As 093 92 RTN 3 3s mmed into the 
63 OP ao4 7e LBL ; isd oa 4 product inertia 
06 06 a95 19? Subroutine: ins 02 2 register for the 
$2 RIN 096 17 Bt Sia faerie 56 65 xX wane in question. 
3° fe CEL | Subroutine: 097 49 RCL | vmenbors 157 43 RCL 
be 35 X= | Calculates .363R. | 098 35 35 pares rinXY | 153 26 26 
0339 93 . 099 65 x |POe i59 69 OP 
040 05 3 100 43 rc |ZmemberinXZ | jeg 1a 10 
O41 OE & 101 20 20 |BARe 61 95 = 
042 02 3 102 33 x2 [ZmemberinYZ | 162 74 She 
D4¥z 6& a plane. a 
el fe we. 3°85 + 162 oo oO 
365 oe OO 04 42 RCL 164 43 RCL 
a ae 105 32 32 65 38 35 
047 82 RIN 106 45 ¥x 166 65 x 
7 —== 107 5 2 67 3 : 
a8 = LBL | Subroutine: or Hes ne ae Silpiitenls and Ib 
049 17 B? Calculates values | 99 4 5 ee uf or inplane elbow. 
: 22 RCL | for 2 it 169 33 KE a and b are the 
3535 |b 110 02 2 70 85 + distances to the 
ie ae 11 16 At 171i 43 RCL | origin for the plane 
L-a {2 43 REL {72 3: Aa. Vie : P 
62 oY |Lb ar we te 
43 RCL | Lab. ste 3 Be Se 
le 19 114 65 x ?4 45 RCL 
nl 15 43 RCL 175 35 35 
42 PCL 116 19 Wl? 176 65 & 
35 85 {17 33 ae 17? 43 RCL 
45 9 118 164 i7@ i9 49 
11992 RTH 79° 38 NE 
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Loc Code Key Comments Lac Code Key Comments Loc Code Key Comments 
180 385 + 240 3 35 |in X-Z plane; 62. $70 
181 3 RCL 241 65 ‘ X-Z elbows in Y-Z Zl o24 
ne ; 34 242 43 RCL | plane. 92 RIN 
[S492 RTH a a ye GSP [submetine 
185 76 LBL |Subroutine: 245 85 + 2s BCL |Een or ao ples 
186 22 IH | Calculates 246 43 RCL Bt 4, \utcniaie e 
187 oO1 1 (/2)(1.15)(R) 247 34 «34 aah GER configuration to a 
186 93 . (virtual length for | 240 16 AS 19 3 Ned plane: 
189 0& 8 | the outplane 249° 43 REL 42 8ToO 
190 00 9G _ |elbows) storedin | 250 35 35 21°28} 
aa oe 6 R35, Also 251 65 x 92 RTH 
x | calculates 252 43 RCL 7 LBL |Subroutine: 
193 43 RCL |(.149)(1.15(RP for] 253 19 19 7 Sep 
194 25 25. |outplane ls 254 eH re ; OL ney pons 
ie a ara a this value in te 16 At 21 21 | configuration. 
197 35 35 | nT : a a 
19g 93 ar 6 LBL | Subroutine: 13 3 ZA 
199 O1 1 258 a? CP | Rolls all 29 EXL 
200 O7 7 252 43 RCL | information and 20 20 
201 O1 4 260 25 25 | pointers from 42 $70 
202 65 x 261 94 +/- | “this” member ai 2 
203 43 RC 262 42 STO registers to Ze RTN : 
204 25 25 263 33 233 |”next’” member 73 LBL | Subroutine: 
205 45 YX 264 94 +/~ | registers. 20 TAN |Takes L fora 
one 33 265 65 x 43 RCL | straight length and 
207 95 = 266 43 RCL 23 3 | stores it in R32 and 
i te Sn 267 31 31 42 STO [R35 for la and Ib 
209 34 "34 268 693 OP 35 ec) calculations. 
210 92 RT | ee. ee a 
211 76 LBL |Subroutne 270 95 = |The elbow radius do Oe 
212 12 BNE ations} 254 4 Sit |is stored in R33 32 RTH : 
213 71 SBR | for Gufsiane aie 36 36 (negative) to help 76 LBL | Subroutine: ; 
214 22 INV |elbows:X-Zelbows| 55 ae re > | etal eee a EE | tee memane 
215 17 B in XY plane: X-Y 274 31 31 |L values. The UL 1 | fora torsion — 
2 43 RC aLeneae XZ 42 STO | starting point for 22 member, straight 
2 a5 35 lane: X-Y elbows 22 29 |the next input is a3 3 inertia analysis, 
2 x KE aa 3 RCL | moved to the exit 49 PRD 
2 ce, peo 30 30 | point of the 35°35 
2 20 42 STO | proceeding elbow. ala) en 
2 ye 28 28 2 ST 
2 Bi 43 RCL 32 «32 
2 RC 36 36 92 RIN 
2 ; a5 42 STO ¢6& LBL | Input for 
2 65 4X 3¢ 37 11 A |Direction codes. 
S26 43 RCL 43 RCL 45 98 AD\ | Prints D with 
2 ‘oe LS 39 346 42 STO |alpha label. 
528 33 NE 42 STO 347 31 3h 
229° 95’ + 25 25 348 32 SIT 
230 42 RCL 43 REL 349 01 1 
2a, 34 234 oo eo 350 06 6 
2a> if AP 42 STO 351 Fi SBR 
233 92 RT a 2? 352 66 PAU 
234 76 LBL [Subroutine 22 RTN 253 91 R78 
235 c Inertia calculations i . LEL |Subroutine: —_ 354  s8 STO | Input for member 
236 1 SBR | for outplane 14D |Changesaandb | $99 30 20 | length. Prints L 
237 22 INV | elbows: 43 RCL | from an X-Y plane S06 32 NiT | with alpha label. 
3 617 B* | Y-Z elbows in X-Y ve eae configuration to an ce 2 
43 RCL .Y- #8 ENC | X-Z plane. 35s ar Ff 
pe 29 29 | Pan® 359 71 SBR 
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Loc 


Comments 


Toutine. Readies 
input for second 
member. 


Determine 
orientation of 
member, X, Y, or Z. 


480 
481 
482 
483 


tangent point. 


Loc Gode Key Comments Comments 
0 6p FRU | 
--t G1 | {Calculate pointer 
362 08 8 | for member just 
se3 42 STO |input. Pointer is = 
Se4 Je 26 Jin fed 5 
365 43 RCL eo Main controller 
eb St él 2 30 7 for an X-an 
Se~ $0 Tal a7 18 ¢ member straight. 
. sd SUN 420 14 D- | Inertia analysis 
ee ee - 429 18 C* | calls all 
L |Calculate elbow 430 1 SBR | subroutines, shifts 
~ 9 |identifier and 421 52 EE | to elbow analysis. 
5 store in R26. ase 10 E* 
> ROL 432 16 iC” 
- 1 423 71 SBR 
- $35 32 NIT 
a= 2 635 61 GTO 
at $37 70 RAD 
Determines if this | 436 “o LBL | Main controller for 
. is the input of the | 439 SV ENG Ja Y-member. 
: 4 first member. 440 671 SBR 
231 e§ +41 30 TAN 
2 uf e420 19 D° 
443° 71 SBR 
ts § 444 S2 EE 
. : Calculates the “45 14 2D 
6 8% PCL |straightlengthand| +46 13 G" 
25 | stores it in R33. 447 71 SBR 
- 445 30 TAN 
449 10 E° 
4500 418 Ct 
The centroid of the] 4 al 
: ~° | straight member is 3 
<5 > |caleulated. This 
- 4 distance is used for 
a _*s all the inertia Main controller for 
<2 sCL | summations a Z-member. 
<> 29 | (straight). 
258 of OP 
35 10 10 
300 35 = 
201 7s Si+ 
First member 


Begin elbow 
analysis. Shift 
“in-line” centroid 
from straight piece 
position to elbow 
position. This is 
along the axis of 
the member and 
-363 R distance 
from the elbow 


505 


This calculates 
the centroid of 
the elbow 
perpendicular to 
the member axis. 


If R = 0, skip 
elbow routines. 


508 
509 


Determines 
orientation of 
elbow. 


Main control for 
an X-Y elbow. Calls 
all subroutines, 
skips to end of 
analysis routines. 


Main control for a 
X-Z elbow. 


Loc Code Key Comments Loc Code Key| Comments 
540 6! GTO 600 29 cP | Readies input for 
S41 89 &«f 601 25 CLR | next member. 
342° 76 LBL [Main control fora |_602 94 R/S 

343° 99 PRT |Y-Z elbow, 603 99 ADY | Prints end-of-data 
544 13 6 604 05 5 flags. Sets Flag 
545 i4 OD 605 O01 1 1, skips to straight 
546 13 C 696 69 OP inertia analysis for 
S47 10 —° 607 O00 OO J} last member in 
548 71 SBR 608 69 OP analysis. 

S49 80 GRD 609 02 G02 

S30 71 SBR 610 69 OP 

Sel 32. NIT 611 05 OS 

552 76 LBL |Bnd of analysis 612 69 OF 

953 389 ff routines. Readjusts| 613 05 O05 

S54 71 SBR |coordinatestoend| 614 86 STF 

555 33 ye point coordinates. | 615 1 O14 

556 65 x 616 gO O 

557 43 RCL 617 42 3TO 

558 31 31 619 26 26 

559 69 OP 619 42 STO 

5s60 10 10 620. 25 25 

561 95 = 621 61 GTd 

562 94 +/- 622 28 LOG 

563 74 SMe 623 76 LBL [Stores developed | 
564 36 36 624 25 CLP |distances in new 
565 sd ixf 625 98 AD |memory locations 
566 65 x 626 43 RCL | for use in Part 2. 
567 3 RCL 627 13 19 

568 29 29 623 42 STO 

569 69 OP 629 5S 25 

or0 10 10 630 43 ROL 

S?l 95 = 631 20 20 

sre 74 Side 632 42 STO 

ars 3 a7. 63% 3 23 

574 8 ADV | Prints point 634 43 RCL 

aro 3 RCL | coordinates for 625 21 281 

376 13 19 | last’ point. 636 42 STO 

ore 22 ATT 637 24 24 

578 04 4 638 25 CLR 

279 04 4 639 91 R/S 

580 71 SBR 

581 66 PAU 

582 42 RCL 

983 20 20 

384 32 4IT 

585 O04 4 

586 O05 $5 

se? 7 SBR 

58s 66 PAU 

589 432 RCL 

aso 21 Zi 

591, 32) RYT 

592 a4 4 

593 06 6 

394 71 SBR 

295 66 PAU 

326 87 IFF | iflastmember, skip 

597, G1 O1 |tocir. 

o98 25 CLR 

999 71 SBR 
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Loc 


Code 


Key 


Comments 


Coding Form 


Program Number TI-S9-1 Title Elastic Center Part 2 
Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
ovO Gl GTO |Returns to B. 060 43 RCL |Performs inertia 120 42 RCL. |Inertia transfers 
oO1 24 CE dé. Oi Ot |transfers forall the} 121 Gi O14. |for the product 
ooz 7& LBL ]Used to input data] C62 65 \% |momentsofinertia) 122 65 x inertias to the 
GOZ 13 C_ jin Master Library | 063 43 RCL |to the elastic 123 43 RCL. |elastic centers. 
U0g 88 FGM |Matrix Solver, Qé4 3 Og |centers of each 12 2 02 
gas a2 as 065 32 x2. |plane. 125 65 x 
dus SI RS 066 35 = 126 43 RCL 

82 RTN : O67 4 ate 12? a3 03 

?o LBL [Input routine: Q&S 44 SUM 128 75 - 

oe ae Flag 3 is set des 5 o5 129 493 RCL 

Sf IFF after the first bit | a7g 43 RCL 130 U4 O4 

3 OS jofdataisinput.ROO} a7, a4 ot {1 83 & 

14°=#«20 is used asa pointer] (17> 5X ig2 42 STO 

86 STF |to data registers, ars) «43 RCL 133 O4¢ O4 

08 03 {Alpha labels are ar4 o2 o2 184 43 RCL 

32 NIT stored in R30-R33| G75 35 ve i35 ar ar 

Us 3 when, Card 3 of oré 8S = 136 65 X& 

oo 60 Part 2 is read in. a7? o4 are 137 4a RCL 

“2 STO ava SUM 13s ag as 

oa 0a a79 O86 O46 39° 65 *X 

32 8IT asa 43 RCL 140 3 RCL 

76 LBL ag8i 07 oF idi ag og 

i¢ oD age 65 x 142 = 

63° EX* O88 48 RCL 143° 43 RCL 

oo ao os4 09 g9 44 io 10 

og OP og5 33 42 145 95 = 

a4 a4 og6 45 = i460 42 STO 

73 RCS as? 94 +/- 147, 10 10 

oa oOo oss 44 sun 49 3 REL 

69 OF asa 4] 11 49 3 As 

o¢ 06 0390 42 RCL i150 65 & 

69 OP asi o7 a7 151 43 RCL 

20 20 092 65 x 52 id i4 

91 R4S 093 43 RCL 153 65 x 

76 LBL |Resets all flags. 094 a g 54 42 RCL 

if 68 Go to 000. 095 3a NE 155 5S 45 

61 RST —| 096 95 = 156 75 - 

7é LBL |Calculates elastic 097 44 47- 57 439 RCL 

24 CE |centers for all 098 44 SUM 5¢ 16 16 

+3 RCL |three planes. 099 12 12 159 95. = 

01 Ol 100 43 ROL 60 42 STO 

35 17% 101 3 3 161 6 16 

49 PRD 02 65 x 62 3 RCL |Sums all Ix values 

g2 O02 3 423 ROL 62% 5 05 |to one register, 

49 FR 04 15 15 64 44 SU R11. ly is in R17. 

03 03 105 33 Ke 165 11 11 |/2lzisin R18. 

43 RCL 06 95 = 166 43 ROL 

G7 07 a7 94 4+7- 167 O46 06 

29 17% 108 44 SUM 168 44 SU 

49 PRI i909 17 17 69 17 17 

OB 08 110 43 REL 170 42 RCL 

49 PRD i, tar ts tl Ae Ae 

05 09 112 65 x 2 44 SUM 

43 RCL 113 43 RCL 3.18 18 

13 12 14 4 14 1?4 43 RCL | Moves centroid 

35 17k 115 32 wz 175 02 2 | values to R34—R39. 

«9 PRD 1146 95 = 76 42 STO |RO]toR22are used 

1414 11? 94 47= 77 34 24 |in the matrix 

“3 PRD 118 44 SUM 78 43 RCL |solver, so the 

1545 119 168 #18 179 03 02 |elastic center 
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Loc Code Key Comments [Loc Code Key Comments Loc Code Comments 
180 42 STO |coordinateshaveto} 240 O09 9 200 49 
181 35 35. |be relocated. 241 95 = 201 ag 
{92 3 RCL 242 35 17K 302 49 
183 of o8 242 42 STO 30x 10 
184 42 $8T0 244. 29 29 304 49 
195uy 2 36 245 3 RCL | Prepares storage 305 11 
196 43 RCL 246 11 11 registers for 206 44 
187 09 OF 247 42 STO | matrix solver. 207 12 
18S 42 570 248 05 O08 208 4g 
is9 3 37 249 43 RCL S09 1g 
190 3 RCL 250 17 17 S10 49 
191 14 14 251 42 STO Si1 14 
192 42 STO 252 42 12 312 44 
193 38 3d 253 3 RCL 3iZ 15 
194 43 RCL 254 18 18 214 49 
195 15 15 255 48 EAC 315 16 
196 42 STO 256 16 16 BiG 43 Calculate system 
197__ 3 39 257 42 STO Si? 32 unrestrained 
Calculates moment} 252 12 3 218 49 expansion values. 
199 30 30 |ofinertia for pipe | 259 42 sto Sig 23 
200 45 ¥*%  |andstorein R26. | 260 15 15 320 49 
201 04 4 261 3 RCL B21 24 
202 75 = 262 04 04 322 49 
203 953 ¢ 263 42 STO 323 25 
204 43 RCL 264 11 11 324 SH Calculate matrix 
205 30 3 265 42 STO 225 02 determinant. 
206 75 = 266 09 O9 326 13 
a 2 2 267 43 ROL 327 Ot Set up program 
65 Xx 263 10 10 328 Sé to accept anchor 
43 RCL 269 42 570 329 02 movements. 
31 31 1414 330 14 
cae Changes units for | 331 25 
45 78 thermal growth 332 91 
Od <4 rate. 333 99 Print anchor 
34 3 334 85 movements, add to 
65 x 235 43 unrestrained 
so of Matrix solver 336 25 expansion values, 
ao = 277 6 4 |constants. 337 95 = and feed into the 
Es 278 z 333 13 | matrix solver. 
339 25 CLR 
340 98 ADV 
2 341 91 R/S 
f 342 99 PRT 
Calculates stress 1 1 |Divideallinertias | 343 85 + 
intensification O07 7 |by EL, convert 344 ac 
factor from K factor 02 2 JunitsfromfPto | 345 23 23 
in memory, the last as 8 /in’. 346 95 = 
K value input and 55 + 347 13 Cc 
stores it in R29. 43 RCL 249 25 CLR 
Se 32 98 AD 
32 EE 31 RYE 
G6 8 3a PRT 
22 IN\M Sa + 
52 EE 43 RCL 
a5 ot 24 24 
42 RCL a5 = 
2a 26 13 8 
cae 93 = 25 CLR |Solve matrix. 
99 + 49 PRD sé FGM 
3S. of as a2 az 
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Loc Code Key Comments Comments Comments 


Print orientation 


hed 


6a is € 
38143 RCL [Calculate pipe flag. 
S62 26 26 [section modulus. 
363 39 = Store in R24, 
364-49 ACL 
365 SU Sa 
366 65 
Sef az 3 - 
$é8 95 = Calculate Mx and 
S63 42 STO : store in R26 and 
S7Q_ 3h ; ( Setup momentand| + R *L. |RO7. 
$7) O01 1 Change signs to $3t 5 stress routine for B2 
S¥2 44 +/- represent values at | 432 + Jan X-member. x 
873 48 PRD |Anchor 1. $35 4 a 
S74 30 20 44 TO 43 RCL 
375 49 PRD 835 aa 38. 38 
376 21° 21 $38 r ro ae 
377 49 PRO 487 $2 STO 43 RCL 
S7e 22 23 3398 a4 of U2 
3r3 38 FIN [Label and print 438 8 oC 
380 00 00 Jforces. $40 sto ta = 
$81 us 2 441 ag 43 RCL 
382 01 1 ade q 21 21 
383 08 ¥ 493 $ 65 oN 
384 a3 4 $34 S36 
ass 69 OP 345 43 RCL 
386 03 04 a6 7S Set up moment and S939 
S8¢ 43 REL iad ° stress routine for a FO 
388 8a 2 Reneniber: 43 RCL 
383 69 OP o3 a3 
390 06 06 : 
Sa; 02 2 
352 Of ff 
333 04 4 
394 Q5 5 
395 69 DOP 
3956 U4 04 Calculate My and 
387 43 RCL store in R27 and 
SoS 21 21 RO8. 
323 69 OP 
$00 O06 06 
401 02 2 
Pa a i Set up moment and 
404 06 6 3 8 C stress routine for 
405 69 OP 7&4 + 4  |a Z-member. 
406 04 04 
407) 43 RCL 
408 22 22 
409 279 OP 
4190 G6 06 
411 92 ADV 
412) 41 R/S 
412 76 LBL |User inputs 
41¢ 15 —E coordinates of 
415 22 INV |point where 
416 58 F1I% |moments and 
417 93 AD’  |stresses are to be 
418 42 STO |calculated. 
419 O01 O1 
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Loc Code Key Comments Lac Comments Loc Code Key Comments 

540 42 STO 600 

541i. 08 08 601 

542 43 RCL |Calculate Mzand | 602 

543 2! 21 |store in R28 and 603 73 RC |Calculate bending 

544 65 Xx ROS. 604 05 U5 |stress vector. 

545 53 ¢ 605 32 XtT 

546 43 RCL 606 3 RC# 

S47 34 34 607 O06 06 

S48 75 - 608 22 INY 

549 43 RCL 609 37 P/R 

550 OL 1 610 32 #iT 

S51 54 > 611 72 ST# 

soe fs = 612 05 05 

553 43 RCL 613 32 KiT |Calculate stress 

554 20 20 614 73 RC* lrange. 

S55 65 % 615 04 04 

556 S53, ¢ 616 65 x 

So7 3 ROL 617 02 2 

556 35 35 616 95 = 

Soo 7a = 619 22 INY 

560 3 RCL 620 37 P/R 

561 O02 02 621 32 KIT 

562 95 = 622 72 ST* 

563 42 STO 623 06 06 

564 28 28 624 9S ADY |Print ST, SB, and 

565 99 PRT 625- 73 RC |SE values, in that 

566 42 STO 626 04 04 Jorder. 

567 09 09 627 50 IxI 
Changes moments | 623 99 PRT 

569 02 2 in RO7, R08, and oro 7S RCS 

s7Q 55 + RO9 to nominal 630 05 05 

571 3 RCL {stress values. 631 99 PRT 

S72 24 24 32 2% RC#¥ 

S73 95 = 633 06 06 

a7 49 PRD 634 99 PRT 

s75 a7 a7 S35 91 R¢s 

at 49 PRO 

5s7r ag as 

s7@ 49 PRO 

oro 09 09 

280 93 . Adjust torsion 

S81 05 5 stress. 

se@2 64 PD* 

289 04 U4 

584 2 2 Label and print 

S35 04 4 elbow and I value 

586 69 OP and stop. 

587 O4+ O04 

se¢@ 58 FIN 

ssa 03 O03 

59000643 (RCL 

S31 29 29 

592 69 OP 

593 a6 O06 

594° 91 RS 

595 69 OP ae chosen | 

596 06 06 |value. 

Sr 5&8 FIN |Multiply bending 

“98 O00 Q0  |stresses by I. 

599 64 PIs 
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INDEX OF 
TERMS 


R: Elbow radius (ft) 


K: Elbow 
flexibility factor 


D: Direction code for 
member input 


1 = X-member 
2 = Y-member 
3 = Z-member 


L: Member length (ft) 


X: Point coordinate in 
the X-direction (ft) 
Y: Point coordinate in 
the Y-direction (ft) 


Z: Point coordinate in 


the Z-direction (ft) 


*: End-of-data flags 


TI-59-1 Input Sheet 
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Elbow radius and K factor for elbow at 
Point 


Direction code and member length for 
Member 


Coordinates at Point 
Elbow radius and K factor for elbow 
at Point 


Direction code and member length for 
Member 


Coordinates at Point 
Elbow radius and K factor for elbow 
at Point 


Direction code and member length for 
Member 


Coordinates at Point 
Elbow radius and K factor for elbow 
at Point 


Direction code and member length for 
Member 


Coordinates at Point 
Elbow radius and K factor for elbow 
at Point 


Direction code and member length for 
Member 


Coordinates at Point 
Elbow radius and K factor for elbow 
at Point 


Direction code and member length for 
Member 


Coordinates at Point 


TI-59-1 Output Sheet 1 


Pipe outside diameter (in) 

Pipe wall thickness (in) 
Modulus of elasticity (Mega psi) 
Thermal growth rate (in/100 ft) 


Inertia matrix determinant 


X-anchor movement (in) 
Total delta X between anchors (in) 


Y-anchor movement (in) 
Total delta Y between anchors (in) 


Z-anchor movement (in) 
Total delta Z between anchors (in) 


Applied at Anchor 1 (Ib) 
Applied at Anchor 1 (Ib) 
Applied at Anchor 1 (1b) 


The inertia matrix determinant is printed automati- 
cally by the Master Library Software program, used by 
the program (ML-02). 

The anchor movements input by the user represent 
the total algebraic difference between the movement at 
Anchor 1, and the movement at Anchor 2. 


Example: Anchor 1 moves 0.25” in the positive X- 
direction. 
Anchor 2 moves 0.10” in the negative X- 
direction. 
The anchor movement that the user inputs is: 
0.25 — (—0.10) = 0.35” 


If the movement at Anchor 2 had been 0.5” 
positive, the user input would be: 


0.25 — 0.50 = —0.25" 
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TI-59-1 Output Sheet 2 


X-coordinate (ft) 
Y-coordinate (ft) 
Z-coordinate (ft) 


Orientation flag 


Mx (ft-Ib) 

My (ft-lb) 

Mz (ft-Ib) 

I factor (offered) 
I factor (used) 


Torsion stress 
Bending stress 
Stress range 


X-coordinate (ft) 
Y-coordinate (ft) 
Z-coordinate (ft) 
“Orientation flag 
Mx (ft-Ib) 

My (ft-Ib) 

Mz (ft-lb) 

I factor (offered) 
I factor (used) 


Torsion stress 
Bending stress 
Stress range 


The moments at Anchor 1 (0, 0, 0) will have the correct sign. 
The moments at Anchor 2 (last point) will have the opposite sign. 
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Program HP-41CV-1: Thermal Expansion Analysis of a 
Two-Anchor Piping System with Variable Pipe Size, 
Schedule, and Thermal Condition Capability 


Introduction: 


HP-41CV-1 is the mating of the Elastic Center Method 
of thermal pipe stress analysis with a state-of-the-art 
programmable calculator. The program analyzes a two- 
anchor piping system for thermal expansion or contrac- 
tion in single or multiple planes. Bend radii at changes 
of direction, including square corners, can vary through- 
out the analysis. Also variable are the “base” data sets, 
which include pipe, outside diameter, wall thickness, 
modulus of elasticity, and thermal] growth rate. Up to 
four “base” data sets may be used during one analysis. 
Anchor movements may be introduced at either anchor. 
The flexibility matrix may be saved on magnetic cards 
for reanalysis of one system under varying conditions. 
.. The analysis conforms to ASME/ANSI B31.3, 1980. 


Nomenclature: 


The user inputs the system geometry, pipe size, and 
thermal conditions to the program. The “base” data 
sets consist of the following items: 


OD: Pipe outside diameter (in) 
T: Pipe thickness (in) 
E: Modulus of elasticity (Mega psi) 
e: Thermal growth rate (in/100 ft) 


The geometry data consist of the following items: 


Lx: Member length (ft), where x is the member 
number 
R: Elbow bend radius (ft) 


The user will also be able to input anchor movements: 


AM1: Anchor movements at Anchor 1 consisting of 
three numbers, one for each of the three 
orthogonal directions (in) 

AM2: Same as above for Anchor 2, the final point of 
the analysis 


Point coordinates are input by the user to find the 
stresses at a point of interest where: 


Cx: Point coordinate along the X-axis (ft) 
Cy: Point coordinate along the Y-axis (ft) 
Cz: Point coordinate along the Z-axis (ft) 


Finally, the user will be asked to identify the stress 
intensification factor to be used at the stress point, and 
the “base” data set number: 


I: Stress intensification factor 
OD#: “Base” data set number 


The user will use up to nine different keys on the cal- 
culator keyboard to execute the program. They are: 


; Initializes the program 

: Geometry input for an X-member 

: Geometry input for a Y-member 

; Geometry input for a Z-member 

; End of geometry data 

Shift A: Stress analysis for an X-oriented member 
Shift B: Stress analysis for a Y-oriented member 
Shift C: Stress analysis for a Z-oriented member 
Shift D: Input a new “base” data set 


Vorwrn 


Method: 


The Elastic Center Method of piping stress analysis, 


sometimes called the Spielvogel Method, is described in 
great detail in the Grinnell Company's Piping Design and 
Engineering. Some excerpts are included here, but the 
reader is encouraged to examine the full text fora com- 
plete understanding of the analysis. Basically, the anal- 
ysis finds the point in each of the three orthogonal _ 
planes where the moment in that plane is zero. This 
point is the “elastic center” of that plane, and each 
member in the piping system has a moment of iner- 
tia and a product inertia with respect to it. When all 
the moments of inertia and the product inertias for 
each member are summed up, the result, for a three- 
dimensional system, is a 3 X 3 flexibility matrix. 

The matrix may be a simple 3 x 3 because the mo- 
ments are all zero at the planar elastic centers. Solving 
with respect toa 1 x 3 displacement matrix results in the 
three orthogonal system forces. These forces, in con- 
junction with the developed distances, may be used to 
calculate the moments and stresses at any point. 

When the Elastic Center Method was originally used, 
modern mainframe computers were unavailable or too 
costly. Therefore, convenient analysis forms were used 
to keep all the data straight and to reduce the errors that 
are a part of manual calculations. Still, a fairly straight- 
forward analysis could consume several hours. 

In simplifying the analysis, the forms also greatly 
limited its capabilities. Because it used the constant C, 
which is a combination of the thermal growth rate and 
the modulus of elasticity, the method was limited to 
metallic pipe at the cold modulus and one thermal con- 
dition from one anchor to another. Also, by using the 
pipe moment of inertia in the final equation, the analy- 
sis was limited to only one pipe size from one anchor to 
the other. 

HP-41CV-1 allows the user to put back all the things 
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that had been removed. The modern programmable 
calculator has numerous memory registers that can sep- 
arate and remember all the data that would become too 
cumbersome if the analysis were to be done entirely by 
hand. The analysis can handle up to four different com- 
binations of pipe size and thermal conditions. The iner- 
tias are normalized to the pipe moment of inertia and 
present value of Young’s modulus during the summa- 
tion process. The thermal expansion data is accumu- 
lated for each member, based on the present value of 
thermal growth rate. 

Another limitation of the original method has been 
eliminated. Originally, the entire system was first ana- 
lyzed to find the various elastic centers, then all the 
inertias were summed with respect to those points. 
HP-41CV-1 uses the Luengas Summation System, named 
for its developer Carlos E. Luengas. This system sums 
all the inertias with respect to the point of origin and 
then transfers the inertias to the elastic centers of 
each plane after geometry input is complete. Thus, the 
calculator does not need to “know” the geometry 
beforehand. 

Anchor movements are also possible with this pro- 
gram. At each anchor the user may elect to add to the 
analysis displacements of-the anchors, thereby allow- 
ing the user to perform a seismic anchor movement 
analysis on a system (This is applicable to static analysis 
only.) 

Finally, the program allows the user to save the 
summed inertias on magnetic cards. This step is some- 
what similar to saving the decomposed stiffness matrix 
in a major mainframe program. It allows the user to 
reanalyze the same system for various combinations of 
anchor movement and/or various thermal conditions 
without having to reinput the geometry each time. 

Accuracy was measured against the same geometry 
and thermal conditions analyzed by a major mainframe 
stiffness matrix method. The results follow: 


MAINFRAME 
HP-41CV-1 ANALYSIS 

Fx 564 # 516 # 

Fy 396 # 355 # 

Fz —557 # —533 # 
@AI 

Mx -7390 ft-lb -7153 ft-lb 
My 4035 ft-lb 3431 ft-lb 
Mz —5886 ft-lb —5237 ft-lb 
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@ A2 

Mx 6942 ft-lb 7159 ft-lb 
My —1683 ft-lb —1612 ft-lb 
Mz 7106 ft-lb 6455 ft-lb 
Maximum stress 

ST 601 psi 575 psi 
SB 8929 psi 7237 psi 
SE 9010 psi 7328 psi 
Limitations: 


The program is set up to handle any number of mem. 
bers, but only two anchors. There is no provision for 
intermediate supports. Fully fixed rigid anchors are 
assumed. Only English units may be used. The pro- 
gram may print a fifth “base” data set, but there is only 
enough memory space to handle four such sets. After 
printing the fifth “base’’ data set, the calculator will stop 
and display the word “NONEXISTENT.” The analysis 
does not include dead weight or internal pressure, even 
in the calculation of K and I factors for the elbows. 


A Word About Modeling: 


Obviously, not all piping will be routed with only two 
anchors. HP-41CV-1 is a tool to be used by the analyst. 
Complex systems must be broken down into small sec- 
tions, from support to support, and combined asa 
whole by the analyst by manipulating the thermal con- 
ditions and anchor movements to best simulate the 
real situation. Many iterations and analyses may be 
necessary. 


Special Note: 


When performing the stress analysis at various points 
in the system, the user should be alert to the signs of the 
moments that are printed. At the two anchors, the 
moments will have the correct sign. But at any point be- 
tween the anchors, the moments may or may not have 
the correct sign. This is because, given the limitations of 
program space in the HP-41CV, the program does not 
“know” which side of the elastic center the point is on. 
Analysts are cautioned to use their best judgment when 
determining the sign of intermediate moments. As an 
example, look at either of the sample problems where 
Point 1 is reanalyzed for stress. The moments in each 
case are reversed from those reported earlier in the 
anchor moment printout. 


Keyboard Card Labeling 


MER HP - 4 [TERE 


f] ON |] usen | 1) PRGM | | ALPHA} 


Sseeee 


Beeac4uaea 
@oqqgg4 


KEYBOARD 


Sqeq 
=—_— 
=_—| 

== 

=e 


SYSTEM 
CONFIGURATION h 
| Card Reader 


Printer 
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User Instructions 


Program Number —HP-41CV-1__ ‘Tithe _Thermal Expansion Analysis 


Step Instructions Input Keystroke Display 
1 Read in magnetic cards, Turn user mode "on" to get 
key assignments. 
2 Press B OD= 
3 Enter pipe outside diameter (in), OD R/S Ts 
4 Enter pipe thickness (in), i R/S E= 
5 Enter Young's Modulus (Mega psi). E R/S ce 
6 Enter thermal growth rate (in/100 fi). e R/S Ll= 
7 Enter member length (ft), L A for X-member 


B for Y-member 
C for Z-member R= 
8 Enter elbow radius (ft). 
Note: For the first member, this step is mandatory. 
There is no default value. R R/S L2= 


Repeat Steps 7 and 8 for all members of any "base" 
data set. If the value of R is ‘the same as the previous 
value, do not reenter the value; just press the R/S key. 


After the last member of any "base" data set is input, 
the program will prompt for the "next" L. Ignore 
this prompt. 


9A If there is another "base" data set to be input, press the 
"next data set" key. 
Note: This operation will only work three times 
during one complete analysis. shift D OD= 


Repeat Steps 3 through 8. Do not press the E key at 
this point. 


9B After the last member of the last "base" data set has 

been input, the program will prompt for the "next" L. 

Ignore this prompt and press the end-of-data key, D RDY 01 OF 04 
10 ‘If the data is to be read onto magnetic cards, feed in 

four cards at the prompting of the calculator. If not, 

go to Step 11. 


11 Continue execution. CLX : R/S AMI= 
12 Enter the anchor movements at the first point (in). X-AM ENTER X-AM 
Y-AM ENTER Y-AM. 
Z-AM R/S AM2= 


Note: If there are no anchor movements at the first 
point, do not enter zero three times. Simply 


press the R/S key. 
13. Repeat Step 12 for the anchor movements at the final point. 


The remote printer will print the forces at Point 1 and the 
moments at Point 1 and the final point. At this time the 
user may elect to see the stresses at any point in the system. 
Let Cx, Cy, and Cz be the coordinates at the point of interest, 
expressed in feet: 
14 Enter the point coordinates (ft). Cx ENTER Cx 
Cy ENTER Cy 
Cz Shift A for X-members 
Shift B for Y-members 
Shift C for Z-members 
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Step 
15 


16 


17 
18 


(a) 
(b) 


© 
@) 


€) 


Instructions 


If the displayed value of I is appropriate, press the R/S key. 


If not, key in the appropriate value and press R/S, 
OR 


The program will assume that the OD is from the first 
"base" data set. If this is correct, press the R/S key. 


If the point is in another "base" data area, enter the data 


set number and press R/S. 
a) 


IR 
Repeat Steps 14, 15, and 16 as often as necessary. 
If the user has recorded the data on a magnetic set of 
cards and wishes to analyze the system again with 
different anchor movements, or by manipulating the 
anchor movements reanalyze the system in a different 
thermal condition, perform the following steps: 
Press CLX. 


Read in the magnetic cards recorded earlier, as prompted 


by the calculator. 


Go to Step 12. 
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Input 


Keystroke 


R/S 
R/S 


R/S 
R/S 


CLX 
XEQ 
ALPHA 
"RDTA" 
ALPHA 


CLX: SF 01 
GTO 30 
R/S 
CLX 
R/S 


Display 


OD=1.00? 


XEQ RDTA_ 
RDY 01 OF 04 


RDY 01 OF 04 
AMI1= 


Registers, Flags, Assignments 
Program Number __HPAICV-1__ -yit]e ___ Thermal Expansion Analysis 


DATA REGISTERS DATA REGISTERS 

00 Last R/L or 0; IND 39 Ly; y (X-plane) 
O1 OD; ST 40 Laz (X-plane) 
02 = T;SB Al tp 

j 43 Iz (X-plane) 
05 et pointer 44 IND 
06 K;Tused 45 IND 
07 Member #1 calculated 46 R (used) 
08 .149KR3; X for stress 47 21 
09 ,137KR3: Y for stress 48 2 
10 149K (1.15); Z for stress 49 23 
11 LI IND 50 ZA 
12) DI; IND 
13 LQ: IND 
14 D2; Mx 
15 L straight; My ie FLAGS 
16 Eli; Mz t s/c Set Indicates Clear Indicates 
17 Ax; Fx 
18 Ay; Fy 0 C New “base” data 
19 . Az; Fz to be input. 
20 end point & c.g, (X) 1 CG “Final” member and 
21 end point & cg, (Y) end of geometry input. 
22 end point & c.g, (Z) 2 Cc Intermediate member 
23 W2(K)(R) being analyzed, 
24 = wW2(1,15)(R) 3 Cc “This” radius is the 
25 Dircode; pointer same as “last” radius, 
26 L(y) 
27 Lx; xX (Z-plane) 
28 Ly; ¥ (Z-plans) ASSIGNMENTS 
29 Ixy Label Key Function Key 
30 Ix (Z-plane) U- E(15) 
31 Jy (Z-plane) X A()1) 
32 L (xa) Y B(12) 
33 Lx;x (Y-plane) 2 C3) 
34 Lyi y (¥-pinne) oO D(i4) 
35 [xz W OD'(-14) 
36 Ix (¥-pluno) KK A‘(G-11) 
37 14 (Y-plane) L B'(-12) 
38 Lyz M C'(r13) 
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OD=16.758 
T=6.365 
E=27.9066 
e=6.176 


Li. =¥=8, 686 
R=4,167 


L2,=2=18,008 “ 
R=1,250 


PT2.= 
8.06, 8.60, 6.00 


Ld. =h=-7.886 


PT3.=. 
0.86, 8.08, 18.80 


4.= 
-7,08, 8.66, 18.80 


1=2.685 
OD=196.756 
T=6.365 
E=27.9648 
e=6.176 


L4,=k=-7, 068 
P=4.167 


L6. =Y=-26, 660 


PTS.= 
~14.08, 6.80, 18.82 


PT6.= 
714.08, -12.08, 18.02 


8,08 6,80 8.60 
6.68 @.80 8.80 


Fx1=895, 
FYL=572, 
F215-963, 


AlG.0@ 6.88 6,8¢ 
HX=~10,969, 
457,056. 
222,798, 


A2=-14.08 -12.68 18.06 
Wx=12, 232. 
Ha-4,431, 
H2=18)922, 


This example compares 
with the excerpts from 
“Piping Design and 
Engineering” by the 
Grinnell Company, to 
verify that the program 
performs the Elastic 
Center Method 
correctly, 
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¥=8,06 6.66 0,65 
HY=16/969. 
HY=-7 856. 
Z=7,796. 


1=1.66 
OD=1.66 
ST=1,416. 
$B=5, 399. 
SE=6, 096. 


2-606 6.66 16,75 
Hd=-6,366, 
WY=7,928, 
KZ=634. 


1=2.61 
OD=1.68 
$T=12Z7. 
$B=16,589. 
SE=18,592. 


=-1.25 8.86 18.89 
NR=-7 828, 
HY=7,843, 
N2=-81. 


=2.61 
OD=1.66 
ST=1, 469. 
SB=8, 199. 
SE=3, 669. 


Y=-14.06 -12,66 18.88 
MR=12,232. 
WY=-4,431. 
N2=16,522. 


I=1.86 
OD=2. 08 
$T=889. 
$B=6, 475. 
$E=6, 714, 


¥=8.00 8.06 0.80 
HX=3, 268, 
WY=-7,856. 
N2=634, 


I=L.17 
OD=1, ee 
ST=1,416, 
$B=1,559, 
SE=3s 232. 


Source Documentation 


ITT GRINNELL — PIPING DESIGN AND ENGINEERING 


MULTIPLE PLANE SYSTEM CONTAINING CIRCULAR ARCS 


Bend R=5D, =4.10' 
LR.Ell R= 1.5D, = 1.25’ 


9 ire 
w 
Coy 
we |, 
1 7 
ayer H 4 
Pa 
Given: A 10 inch piping system in accordance with Reaction moments M,,, Mz, and M,, at points 
the sketch shown above, aandh. Amount and location of Maximum Combined 
Maximum Operating Pressure P 350 psi Siresa'#, 
Maximum Operating Temperature 760° F Solution: Project the piping system into the three 
Piping Specification A.S,T.M. A-106 Grade A planes, determine the location of the centroid and 
Data: calculate the line inertiag in the same manner as out- 
i lined on page 56, except that the flexibility factor, k, 
2 = 0,365 inches / , 
hedul page 2 and 14 must be included for all curved segments in the plane 
ieene Weise of projection. 
sabne-ansal Total J, = 1903 -+ 3283 = 5276 ft? 
Ip = 160.8 inches Total J, = 2802 + 3841 = 6643 ft? 
‘Sm = 29.9 inches? Total J, = 3091 + 1978 = 5069 ft? 
A; = 78.9 inches? Tay = 1834 ft? 
As = 11,91 inches?} page 14 Ty, = 1774113 
Ketend @ 2.44 Ty, = 706 ft? 
Sheng © 117 L,clp = 14 X 996 X 100.8 = 2,242,195 lb ft? 
ketow * 8,15 Lylp = 12 X 996 X 160.8 = 1,921,882 Ib ft? 
latow ™ 2,01 L,I p = 18 X 990 X 160.8 = 2,882,822 lb ft? 
Cu tue = 900 page 11 (1) F, 6278 — Fy 1400 — F, 1779 = 2,242,195 
Allow, Sa = 17,075 pui page 3 (2) —F, 1400 + F, 6043 — F, 706 = 1,921,882 
Find: Reaction forces F,, Fy and F, at point h (at (3) —Fs1779-— Fy, 700 + F, 5009 = 2,882,822 


point a reaction forces equal and opposite), 
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EXPANSION AND STRESSES 


PROJECTION OY ZY PLANE 


To find c.g. of each segment see page 44. 
Lengths: 

ab = 15.84 

d= 8.50 

of = 12.59’ 

ghe 3,84! 


be — R = 4.16’ 
de — R = 1.25’ 
g- R= 4.16 


> 
° 


Eq. No. Length L, Ft Ly 

ab I 18.84 +14 +222.0 +4.08 + 4.6 
te | IM 1.87% 2.44% 6.16 © 15.08 | 412.49 +1991 | =6.49 =103'5 
ot | I 8.50 | + 5.53 ta77 | <3 = 687 
a | ¥ 1.81 x 1.25 = 226 | toss $"vo | =e = 18.1 
q|u 1/3 x 12/80 = 16.35 r) fr) =3 =130'8 
h | Vv 181 x 4.16 = 75 0 0 =6.49 = 48.9 
mn | X 3.8 0 0 =is2 = "74 
ZL = 70.36 ZL = 0.8 ZLy = 312.8 

+400.8 =312.8 
Pea 7 HS. tt j= 7536 > 4,45 (t 
——— ———— 

ab] VI 15, 84 x = + 080 

bc xB +2. 44(0. 10) + 1.57 X 2.44 X 4.16 X 5.81(—2.04) == 165 
a | VW 8.50(—1. a+ Hd 
a@ | xt 11x 1. 3.55) =+ 90 
qd | wn 13 x12! 33) =F 338.0 
m | XI UBL x 4, =2'04) = + 102.5 
a | VW 318K(=6. == 49 

Ing = +1334 

F 

a | XIVB 5-H) 1. 15,848.53) = 144 
be | XVITA | 2.4M0.149 x 4.16) 1.87 % 2.44 x 4,16¢2.04)8 = 25 
a | XIVA 8.50(3 55)! a) = 108.3 
de XVIII A 1,81 X 1.25(3.55)" = 28 5 
q | 1/3. x 12.50(3.55)" = 2063 
o | XVUTB | 1.180.149 x 4.16) + 1.81 x 4.1602.04) = “e7 
a | XIVB Sr + 3.84(2.53)" - 7.3 

l= 1993 

ab | XIVA 18. 84(7.2)" = 49 

be] XVI a | 2.440.149 x 4.10) + 1.87 x 2.44 X 4.1665.81)! = 56 
a | xIvB Bsr + 8.5001, 19)" = 6.8 
de XVIII B 1, 18(0, 140 X 1.254) + 1.81 % 1,25(6.23)8 = $3.1 

q | 13 x 12.50(6..68)! = 70 

Q LAL x 4106.68)! = 36 

th 3,846. 08)" = om 

T= 2802 
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GRINNELL— PIPING DESIGN AND ENGINEERING 


PROJECTION IN XZ PLANE 


To find c.g. of each segment see page 44. 
Lengths: 

ab = 15.84’ 

cd = 8,59’ 

ef = 12.59" 

gh = 3.84’ 


be — R = 4.16’ 
de — R = 1.25’ 
fo -R= 416’ 


Ly 
1.3 X 15.S4 = 20.60 +288 + 371 
1.81 X 4.16 - 754 + 9.1 + 135.8 
8.59 + 47.7 + 154.8 
1.57 X 8.15 1.25 = 16.00 + 472 + 230:8 | 
12:59 t) + 131.8 
1.81 x4 16 = 754 0 + 11:4 
1.3 X 3.84 = 4.99 0 0 
ZL = 77.85 ZLe = +1085.6 


& | Vin 1.3 X 15.84 X 8.39 Xx 4.06 + 701 
b | XI 1.81 x 4.16 x 6.88 X 4.08 + 210 
2| 8.59(—_06)4.06 = 2a 
de | XB 8.15(0.137 X 1.25%) + 1.87 X 8.15 X 1.25(—5.16)(3.61) — 296 
gf VI 12.59(—5.61)(—3.49) + 246 
4g x1 1.81 X 4.16(—5.61)(—12.43) + 525 
-@ | VO 1.3 X 3.84(—5.61)(—13.94) + 390 
Tea = +1774 
Tr 
o | xvI 1.3 x 15.84(4.06}? 340 
be | XVIA | 1.81 x 4.16(4.06)? 124 
a | xXiva 8. 59(3.08) ‘142 
a | XvItA 8.15(0. 149 X 1.25) + 1.57 x 8.15 X 1.25(8.61)! 2i1 
g | xIvEB 2.59? | 12.508.49)! 320 
fo | XVETB | 1.15(0.149 x 4.16) + 1.81 x 4.16(12.43) 1176 
@ | xv 1.2 x 3.84(13.94)? 970 
T,= 3283 
A 


2 | XVI 1.3 x 15, 84(8.39)' 

be | xvnre | 11500. 149 x 4.16) 41.81 x 4.16(6.88)" 369 
a | xIvB BSP + 8.59(,06)" 53 
& | xvme | 8.150 149 x1. 1.87 X 8.15 X 1.25.16)! 429 
¢ | mvs 1506 ey oy 306 
, | xvmta | 1,81 x 4,165.61) 237 
a | xv 13 x 3.84¢ 157 
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EXPANSION AND STRESSES 


PROJECTION IN FZ PLANE 


To find c.g. of each segment see page 44: 
Lengths: 

ab = 15,84’ 

ed = 8.59’ 

ef = 12.59" 

gh = 3.84’ 


be — R = 416’ 
de — R = 1.25’ 
fo-R= 4.16’ 


a 
1 
R 


| 
+ 64.6 +18 285.5 
— 48.9 +18 135.8 
— 895 +18 201.5 
- 18.1 +1755 39.7 
100.8 +10.46 131.7 
103.5 + 1.51 24.1 
5 - 7.4 1) () 
ZL = 69.19 ZLy = —303.6 | ZLy = 818.3 
303.6 818.3 
ler in 2 ig 7 TU Bt 
ab VI 15.84 X 8.47 X 6.17 = + 827.7 
be XI 1.81 x “ io? 10) x; a: i = 97.7 
ed NTIT 1.3.x Ae 1) X = — 249 
de XI 1.81 x1 er ab SCs fe =- 46.7 
¢ MI 12.50(—3.61)(— =+ &.3 
9 XA —2. 4400. 137 X . ra) +1.87 x 2.44 X 4.16(—2.10)(—10.32) = + 321.4 
gh VI 3.84 X 2.47(—11.83) =— 112 
Ty = + 706 
ee ga aaa (a | 
ab xiv 15.84(6.17)? = 
bc x A 1.81 < 4.16(6, 17)? - 2387 
ad 1.3 X 8.59(6.17)® = 126 
de XVIII B 1is(0. 149 X¢ 1-259) + 1.81 x 1.25.72) - 4 
go | xive | G28" 4 12 soa.sm = 190 
So XVIT B 2. 44(0.149 9¢ 4.16) + 1.57 < 2.44 X 4. 1610.32)" = 1724 
ga XIV A 3. 8411.83)" = 537 
: I, = 3841 
Fi 
ab XxIVB asgar + 15.84(8.47)? = 1468 
be XVIII B 1.15(0.149 X 4.16) + 1.81 Xx 4.16(2.10)* = 
od XVI 1.3 X 8.59(3.61)* = 146 
de XVIII A 1.81 x 1.25(3.61)* = 25 
Z, XIV A 12.50(3.61) = 164.0 
() XVIDA 2.44(0.149 X 4.16) + 1.57 X 2.44 X 4.16(2.10)* = 96.5 
oh | XIVB BAY 4 3.842.47 = 2 
I,= 1978 
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GRINNELL — PIPING DESIGN AND ENGINEERING 


SOLUTION OF EQUATIONS 


MOMENTS IN FOOT POUNDS 


XY Plane 
+893 X 16.45 — 571 X 7.32 
= +10,510 


XZ Piane 
+893 x 4.08 — 960 X 8.39 
= —4429 


M = V(10,510)? + (12,211)! = 16,121 


Same aaa 
= —4128 


M = V(3635)* + (2995)? = 4710 
+893 X 4.06 — 960 x 4.23 
= -45 


+893 x 0.61 — 571 x 7.32 
= -3635 


—893 x 3.55 — 


571 x 3.16 
74 


883 X3:55 + 571 X 5.43 


= -7 


+893 X 4.06 + 960 x 4.36 
= +7811 


= Vell) + (70)! = 7811 
+893 X 2.81 + 960 x 5.61 
= +7895 


893 X 3.55 + S71 X 6.68 
= +644 


M = V(7805)' + (6275)! = 10,085 
| 893 X 9.78 + 960 X 5.61 
= = 3343 


M = V(3348)' + (914)! = 3471 
893 X 13.94 + 960 X 5.61 
= —7063 


+883 x 0.61 + 571 x 6.68 
= +4359 


M = V(4359)? + (7283)? = 8488 


+893 X 4.45 + 571 X 6.68 Same as 9 
= +7788 = —7083 


BM = V (7788) + (10,969)* = 13,453 


T, = 6989 


T, = H29 


T, = 4429 


Bf = V (4974)! + (435)? = 4983 Ta = 6989 


vd 


Ts = 644 


Ts, = 7063 


Ts, = 7063 


YZ Plane 


—571 X 6.17 + 960 x 16.39 
= +12,211 


—571 X 6.17 + 900 x 0 55 
= —2995 


—571 X 6.17 — 960 x 3.61 
= —6989 


+571 X 7.67 — 960 X 3.61 
= +914 


+571 X 11.83 + 960 x 0.55 
= +7283 


+571 X 11.83 + 960 x 4.39 
= +10,969 


EXPANSION AND STRESSES 


L, From inspeotion the maximum bending moment, 
M, is 16,111 ft Ib occurring at point a which is 
straight pipe. The accompanying torque T is 
4429 ft Ib. 

Il. The maximum torque T is 6989 ft Ib in line ed 
and the larger accompanying bending moment, 
M, is 7811 ft lb at point d which is curved pipe 
with an + factor of 2.61. 

III. The maximum bending moment, M, in curved 
pipe with an 7 factor of 2.61 is 10,085 ft lb at 
point ¢ with an accompanying torque T of 644 
ft Ib. 

IV. The bending moments in curved pipe with an + 
factor of 1.17 are relatively small (points }, ¢, f, 
and 7) and therefore need not be considered. 

The maximum expansion stress is determined in the 

manner outlined on page 3 as follows: 
Case I (at point a) 

M = 16,111 ft lb 
= 16,111 X 12 = 193,332 inch pounds 

T = 4429 ft lb 
= 4429 X 12 = 53,148 inch pounds 

M_ __ 193,882 


= 5 "5 

ZL 33,148 

7 35, 2x 29.9 

az = V6) + 4087) = (6366)? + 4(880)? 
= 6706 psi 


= 6466 psi 


= 889 psi 


Case II (at point d) 

M = 7811 ft lb 

= 7811 X 12 = 93,732 inch pounds 
T = 6989 ft Ib 

= 6989 X 12 = 83,868 inch pounds 

M . _ $3,732 : 
ono gt = SSS X 261 = 6182 psi 
ae 
7 25.7 2x 29.9 
tx — Ven) + 4GGry = V (6182) + 4(1402)" 

= 8649 psi 


= 1402 pai 


Case IIT (at point ¢) 
Bf = 10,085 ft Ib 
= 10,085 X 12 = 121,020 inch pounds 
T = 644 ft lb 
= 644 X 12 = 7728 inch pounds 
ap @ 5 = 121,020 
eS 89.9 
a= 7728 
2Su 2K 29.9 
se = V (as) + (er)? = V(10,504)* + 4020)" 
= 10,3567 psi 
The maximum expansion stress ag is 10,567 psi, 
occurring at point c, and is less than the allowable 
stress range S, of 17,675 psi. 


X 261 = 10,564 psi 


129 psi 
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OopD=12.758 
T=8.375 
E=25.7aG 
e=4. 640 


L1.=X=12. 282 
R=1. 582 


12,=¥=3. RE8 
PT2.= 


18.88. 8.86, 6.80 


PT3.= 
10.82, 3.88, 8.88 


T=2. 882 
OD=8.625 
T=@.322 
E=26.4@a 
e=3.626 


13,=¥=4. @8 
W188 


14,.=8=4. B82 


RT4_= 
18.88, 7.08, @.82 


PTS.= 


14.08, 7.08, 6.65 


12.439 
OU=4.566 
T=6.237 
E=29r. 666 
e=2. 766 


15.98. 688 
PB. 68 
PTé.= 

62, 7.88, 8.65 


An1I= 


6.62 6.62 6.82 


8.68 6.93 6.62 


Fxl=-5,28, 
F¥i=-2,138. 
FZ1=8. 


This example compares 
with the sample 

problem that follows. It 
shows how the program 
expands on the original 
use of the elastic center. 


Al=8.88 6.08 6.80 


HX=B. 
HY=6. 
W2=1,131. 


A2=28.88 7.68 8.65 
WR=B. 
WY=6. 
W2=-6,988, 


X=8.88 6.88 6.80 
BX=8. 
WY=0. 
=-1,131. 


I=1.68 
OD=1. 68 
ST=E. 
SB=318. 
SE=316. 


R=16.08 8.06 8.62 
MRE. 
NY=6. 
W2=-22, 635. 


1=2.86 
OD=1. 68 
ST=8. 
SB=172742. 
SE=17 5742. 


Y=10.08 7.408 @.8 
HE=8. 
HY=6. 
M2=14,524. 


1=2.44 
OD=2. 68 
ST=6, 
SB=25 287. 
SE=25,287. 


X=26.08 7.98 €.62 


HR=8. 
BY=e. 
HZ=-6, 988, 


1=1.68 
OD=3.68 
ST=0. 
SB=26,857. 
SE=26,657. 


Figure 1.1. Sample Problem 


of ame 60" ; 
OD = 8.625" © 


T 30.322" ‘ 
E = 26.4EE6 pai 
© = 3,62"/100 


2 OD= 4,5" 
> T= 0.237" 
E = 27,0EE6 psi 
| _ €=27°/100" 
OD= 12.75" 
T = 0.375" 12° 8" 
E = 25,.7EE6 psi 5 
© 2 4.6"/100' a 
—e— 100" ® 
DATA 
12” std wt. @ 600 F K factor for 12-in IPS elbow with 18-in radius 
E = 25.7 X 10EE6; e = 4.6 in/100 ft = 1.65/((18)(.375)/((12.75 — 0.375)/2)?) = 9.359 
I = ((12.75)* — (12)*)(ar)/64 = 279.335 in* 
EI = 7178910155 #-in? K factor for 8-in IPS elbow with 12-in radius 


= 1.65/((12)(0.322)/((8.625 — 0.322)/2)*) = 7.360 

8” sch 40 @ 500 F 
E = 26.4 X 10EE6; e = 3.62 in/100 ft Virtual length for 12-in elbow = (3)(9.359)(1.5) = 
I = 72.489 in* 22.052 ft 
EI = 1913715952 #-in* 

Virtual length for 8-in elbow = (4)(7-360)(1.0) = 
4” sch 40 @ 400 F 11.561 ft 
E = 27.0 X 10EE6; e = 2.7 in/100 ft 
I = 7.233 in* 
EI = 195280206.7 #-in* 


ab bec cd 
LENGTH 8.5000 22.052 1.500 
Le 1,18402 3:07178 2.08945 
EE-9 EE-9 BE-10 
R 4,250 9.456 10.000 
j 0.000 0.545 2.250 
LX 36.125 208.524 15.000 
LWEl 5.03210 2.90467 2.08945 
EE-9 EE-S EE-9 
Ly 0.000 122.018 3.375 
Ly/El 0.000 1.67407 4.70127 
EE-9 EE-10 
Table 1.1 


Data for Sample Problem 


lr 


a-b 


d-e 


g-h 


(8.5)(0.000)? = 0.000 


(.149)(9.359)(1.5)> + 22.052(.545)? = 11.256 
11.256/7178910155. = 1.56798 BE-9 


= + (1.5)(2.25)? = 7.875 
7.875/7178910155. = 1.09696 EE-9 
@F 2_ 
il (8)(4.500)? = 63.000 
63.000/1913715952. = 3.29202 EE-8 


(-149)(7.360)(1)> + (11.561)(6.637)? = 510.356 


510.356/1913715952. = 2.66683 EE-7 


(3) = 147.000 
147.000/1913715952. = 7.68139 EE-8 


(7) = 294.000 
294.000/195280206.7 = 1.50553 EE-6 


TOTAL Ix = 1.88461 EE-6 


d-e 
3.000 


1.56763 
EE-9 


10,000 
4.500 
30.000 


1.56763 
EE-8 


13.500 


7.05434 
EE-9 


ly 


a-b 


d-e 


g-h 


e-f f-g g-h TOTALS 
11.561 3.000 6.000 44.052 
6.04113 1.56763 3.07251 4.43662 
EB-9 EE-9 EE-8 EE-8 
10,363 12.500 17.000 
6.637 7.000 7,000 
119.807 37.500 102.000 548.956 
6.26044 1.95954 5.22326 6.56370 
EBS EE-8 EE-7 EE-7 
76,730 21.000 42.000 168.623 
4.00948 1.09734 2.15076 2.75343 
EE-8 EE-8 EE-7 EE-7 
(8.5)> 


+ (8.5)(4.250)? = 204.708 
204.708/7178910155. = 2.85152 EE-8 


(.149)(9.359)(1.5)° + 22.052(9.456)? = 1976.507 
1976.507/7178910155. = 2.75321 EE-7 


(1.5)(10.000)? = 150.000 
150.000/7178910155. = 2.08945 EE-8 


(3)(10.000)* = 300.000 
300.000/1913715952. = 1.56763 EE-7 


(.149)(7.360)(1)? + (11.561)(10.363)? = 1242.653 
1242.653/1913715952. = 6.49340 EE-7 


@P 


+ (3)(12.500)? = 471.000 
471.000/1913715952. = 2.46118 EE-7 


(© 


+ (6)(17.000)? = 1752.000 
1752.000/195280206.7 = 8.97172 EE-6 


TOTAL ly = 1.03487 EE-5 


a-b (8.5)(4.25)(0) = 0 


b-c (.137)(9.359)(1.5)? + (22.052)(9.456)(.545) = 117.973 
117.973/7178910155; = 1.64332 EE-8 


c-d  (1.5)(10)(2.25) = 33.750 
33.750/7178910155. = 4.70127 EE-9 fg  (3)(12.5)(7) = 262.500 
262.500/1913715952. = 1.37168 EE-7 


d-e (3)(10)(4.5) = 135.000 


135.000/1913715952. = 7.05434 BE-8 g-h (6)(17)(7) = 714.000 
714.000/195280206.7 = 3.65628 EE-6 


e-f  (.137)(7.360)(1)? + (11.561)(10.363)(6.637) = 796.165 
796.165/1913715952, = 4.16031EE-7 TOTAL Ixy = 4.30116 EE-6 


COMPUTATION OF ELASTIC CENTER AND INERTIA TRANSFERS 


= (6.56370 EE-7)/(4.43662 EE-8) = 14.79437’ 
= (2.75343 EE-7)/(4.43662 EE-8) = 6.20614’ 


x 
y 
Ix = (1.88461 EE-6) — (6.20614)"(4.43662 EE-8) = 1.75794 EE-7 

ly = (1.03487 EE-5) — (14.79437)(4.43662 EE-8) = 6.38120 EE-7 


Ixy = (14.79437)(6.20614)(4.43662 EE-8) — (4.30116 EE-6) 
= —2.27636 EE-7 (use absolute value) 


SYSTEM DEFLECTIONS 


A = (10)(.046) + (4)(.0362) + (6)(.027) = 0.7668" 
A = (3)(.046) + (4)(.0362) = 0.2828” 


SYSTEM FORCES 


(6.38120 EE-7)(.7668) + (2.27636 EE-7)(.2828) 


is = —5308.525# 
(1.75794 EE-7)(6.38120 EE-7) — (2.27636 EE-7) . 


(1.75794 EE-7)(.2828) + (2.27636 EE-7)(.7668) | 


1728 = —2150.174# 
(1.75794 EE-7)(6.38120 EE-7) — (2.27636 EE-7) 


Fx = 
MOMENTS AT ANCHORS 


Mz @ a = (—2150)(14.79437) — (—5309)(6.20614) = 1141 ft-lb 
Mz @ h = (2150)(14.79437 — 20) — (5309)(6.20614 — 7) = —6978 ft-lb 
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Sample Problem 
HP4ICV-1 Tithe Thermal Expansion Analysis 


Program: 


OD = 8,625" 
T= 0.322" 

E= 26.4EE6 psi 
= 3,62"/100' 


OD = 12.75" 
T= 0.375" 12" X 8" 
E = 25. 7EE6 psi 

¢= 4.6"/100" 


3'0" 


Input ~ Function Display Comments 
E OD= Prompts for OD of first “base” data set. 
12.75 R/S T= Stores OD in RO1, prompts for T. 
3715 R/S E= Stores T in R02, prompts for E. 
25.7 R/S e& Multiplies E by 10 EE6 and stores the result in R04; 
prompts for e. 
4.6 R/S Ll= Divides e by 100 and stores the result in ROS, calculates 


the moment of inertia for the 12" pipe, and gets EI for 
the 12" pipe, in RO4. Stores the section modulus for 
the 12" pipe in R47. Prompts for L1. 


10 A R= Stores L1 in R13, sets the pointers for an X-member, 
accumulates the Ax into R17. Prompts for R. 
1.5 R/S L2= Stores “next” R in RO3. Calculates the direction code 


and stores it in R14. Calculates all the elbow data and 
stores them in the appropriate registers. Rolls all the 
data from “next” member registers to “this” member 
registers. Prompts for L2. 

3 B = Stores L2. Prompts for R. 

R/S L3= Performs all the inertia summations on L1 and the 
following 12" elbow. All summations are keyed to the 
correct registers and subroutines by the direction code and 
the elbow number (in R16). The c.g. of each member is 
calculated as the summations take place. When the 
summations are complete, the data in “next” member 
Tegisters are rolled to “this” member registers, and “this” 
radius is rolled to “last” radius register. Prompts for L3. 


Input 


ooo 


Function 


shift D 


R/S 
R/S 


ENTER 
ENTER 
shift A 


R/S 


R/S 
ENTER 
ENTER 

shift A 


Display 


OD= 


RDY 01 OF 04 
AMI1= 


AM2= 
1=2.44 


Comments 


Sets Flag 0. This tells the program that the L2 (in this case) is 
the last member in the first “base” data set, and that a second 
“base” data set will be input. The summations are performed on 
12, but the elbow summations are skipped because there is no 
following elbow. The I factor for the 12" elbow is printed for use 
in the stress analysis section. Prompts for the new OD. 


Same as for the first “base” data set. 
The Z for the 8” pipe is stored in R48. 
Prompts for L3. 


Same process as above for L1. Prompts for LA. 


Same process for the 8" pipe and the following elbow. Prompts 
for LS. 

Readies the program for the input of the last “base” data set. The 
program functions in this case the same as above. 


Z for the 4" pipe is stored in R49. 


Sets Flag 3. This tells the program that the final mem- 

ber of the analysis was LS. The summations are done for 

LS but not the elbow routines. The end point coordinates are 
found in R20, R21, and R22. The program prompts for the user 
to record all the data in memory onto magnetic cards. After the 
cards are recorded, the program automatically goes on. The 
inertias are transferred to the elastic center, calculated by the 
program. The program prompts for the anchor movements 

at Al. 

Prompts for the anchor movements at A2. 

The program solves the inertia matrix with respect to the 
deflection matrix, resulting in the forces at Al. The 

forces are printed, as well as the moments at Al and A2. 

The program automatically prompts with the display of the last 
elbow I factor. 


With the entry of this data the program calculates the moments at 
the first anchor. Note that the moments have the incorrect sign. 
The program displays the I factor of the last elbow analyzed. 
Changes the I factor used to 1.0. Prompts the user if the OD is 
from “‘base” data set 1. 

Program prints, the stresses at Point 1. 
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Wronwzp 


Function 


R/S 
R/S 


Display 


OD=1.00? 


20 = 


Comments 


The program analyzes the stresses at the elbow in an X- 
orientation. This is an approximation of the stresses at the elbow 
entry point. The stresses are calculated using the value of Z as 
directed by the OD#. The orientation code determines the torsion 
and bending directions. 


These steps will correctly analyze the stresses at the 


8” elbow at Point 4 in a Y-orientation, and at the 
final point, Point 6. 
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Coding Form Coe Es 
Si fe ~S 
Program Number HP-41CVv-1 Title __ Thermal Expansion Analysis f a ON a ys 
tep, ey Key Comments Step) Key K i, 
. Cc 
Line Entry Code lise Entry Cone) litte eey Call Gee ea) 
Q1+LBL °U" Beginning of new 50 - Multiply Tinto RO] 98 “Ey=" Sh Sita ae oi 
a1 — ok Bt rogetthe Elvalue.| 99 pol as | Ymenbers= 
Q4 $70 97 x42 146 * pecuomilates At in. . 
aon = . Puts directi 
Q5¢LBL “R° | Beginning ofa 54 Pl te [code in RO. Puts 
06 CF 61 continuing 55 x pointer in R44. 
87 CF G2 problem that 5 183 $10 25 Go to D. 
88 8 will change the e 64 104 21 
@9 STO 1 base” data. a7 / 165 STO 44 
18 S10 63 ob SIF Of 106 GTO D 
I FIX 2 ce ie a1 Calculate Z of pipe.) 187¢LBL “2° Input routine for a 
12 SF 12 168 $10 13 Z-member. 
61 2 aLja0 4 
13 “OD=" 199 *FZ= Accumulates AZ in 
62 * R19. Puts directi 
14 PROMPT Input of “base” 118 RCL 85 : rection 
15 $70 81 data: OD, LE and 63eLBL H If the value found it + i ai a 
15 S70 01 |e Units for E are | 64 RCL IND 10 [in R47, RAS, RAP or] 112 T+ 19 ones 
17 PRA changed to million] 65 4#8? R50 (directed by 113 3 
ee psi units fore are| 66 cra. at «| Rais zero the | 114 sto 
18 °T=" changed to inches value of Z, 25 
19 PROMPT per foot. 6? ROH calculated above, 115 22 
98 STO 82 68 STO IND 1@ |is stored in the 116 STO 44 
71 ARCL 82 69 GTO °AAe register. {{7#LBL 3 If this is the last 
5? PRA 7BOLBL 81 If there is already a| 118 FS? a1 member, or the last 
93 -fs" 71 ISG 16 whi he te 119 GTO 18 - rayne base 
24 PROMPT 72 CLE delet ha 126 FS? 60 sien ia 
25 STO 04 73 RIA ee ce a Pe 
26 ARCL 84 74 DSE 98 registers are all “ 122 FIX 3 If no new value of 
27 PRA 75 GTO H full, “nonexistent” 123 ARCL 13 Ris input, meaning 
28 1 Eb 7%. is printed. 124 PRA that “this” R is the 
29 ST# a4 @7 1% 125 "Re" same asithey Wael” 
3A “ee 78+LBL "AA" Prompt for input 126 CF 22 aetin ei log - 
31 PROMPT 79 FE @ of L. 127 CF @3 3 is set. 
32 STO 05 88 TONE 6 128 PROMPT 
33 ARCL 65 81 “L 129 FC2C 22 
34 PRA 82 ARCL 87 138 SF 03 
35 196 83 “b=" 131 FS? @3 
36 STv 65 84 PROMPT 132 GTO 18 
37 ADY Set pointers to Q5eLBL *X"  |Inputroutineforan| 133 S10 63 
33 CF 12 store value of Zfor| 86 $T0 13 X-member. 134 ARCL 83 
395 pipe just input. 97 “bY=* Accumulates A Xin|__135 PRA 
4a S10 99 88 pci as [R17 Puts direction] 1364LBL 18 |Set direction code 
44 47.1 99 * : 137 ADY for “this” member 
42 S10 19 98 ST+ 17 138 RCL 13 and store in R14. 
43 RCL 41 Calculate I of pipe. a1 139° SIGH 
44 xt 92 $10 25 om RCL 25 
45 ¥t2 93 28 Puts pointerin R44. : 
46 RCL 91 94 STO 44 Go te D. ; 142 $10 14 
47 RCL 92 95 GT0 D 143 RCL 11 First member of 
46 2 960LBL *Y" 144 =82 any “base” data set 
a 97 $10 12 145 GTO If is sent to 11. 
146 ST+ IND 45 
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Step] Key Key Comments Step! Key Key Comments Step) Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
147 FIX 8 The length of the | 196 26.1 The pointer is 245 XEQ 16 
148 SF 12 “last” member is | 197 $T0 25 stored in R25. The | 946 XEQ "GQ" 
149 “PT — into 198 2 direction code 947 YEO 16 
the register directs the program 
150 ARCL 67 —|airected by Ras, | 199 RCL 12 | tocomrect straight |__248 GTO 28 _— 
1Sf “HE The end point 268 ABS inertia routine. 249¢LBL 15 Straight inertia 
152 PRA coordinates of the | 201 ¥=¥2 258 XE@ 17 ‘| routine. Perna 
“ast” poi va s 
153 FUR 2 "ast point are | agp crO 18 251 ROL 15 | ae mberrin the 
eS te a mn 252 RCL 21 Z-plane, a 
w 253 Xt2 Xx-member in the 
156 ARCL 28 2e5 RCL 15 Straight inertia 254 * Y-plane, and a 
157 “hr * 206 STO @B controller for 255 RCL 04 Y-member in the 
158 ARCL 21 287 YEQ 15 X-members. Calls X-plane. Also sums 
159 *h * 203 ¥EQ “P= all subroutines, - - IND 25 all sarionet ‘i 
2 directs program to members ina 
ia aoe ee | See le 
1 259 RCL 15 
162 ALY 211 @ 268 RCL 20 
- ADY The straight piece a ie aa 261 Xt2 
RCL 11 length is hs 
165 ABS clelated Ifthe | 214 ST# 15 oe "a 80 
166 RCL 66 member is a first or 215 YEQ 15 
é last member of any 16 3 264 3 
167 - “base” data set, 1. 265 Ytz 
168 RCL 46 the length of the 217 ST/ 15 266 12 
169 - straight piece is 218 GTO 26 267 7 
178 FS? €2 compensated. 219¢LBL 18 Straight inertia 268 + 
171 GTO 85 228 KER 16 controller for 269 RCL @4 
172 RCL 08 2et Heap = | acme. 978 / 
173 + = 271 ST+ IND 25 
S74¢LBL 65 The c.g. coordinate | 223 STO 98 272 ISG 25 
175 $10 15 alone the straight 224 1.3 273 RTH 
176 2 Piece is calculated. | 225 ST* 15 o740LBL 16 peal —— 
ght inertia 
7 oes ee 275 ¥£0 17 _| routine. 
179 G10 F Sat 277 RCL 21 
180 FS? 96 229 RCL 15 
181 ero F 236 STO 98 278 at2 Performs all 
182 RCL 46 231 EQ “O° 279 * Sines co 
iz 
163 + 232 XEQ 15 a lees 
184¢LBL F 233 GTO 28 280 YY Z-member in the 
125 REL 12 234¢eLBL 19 Straight inertia 283 12 Y-plane, and a 
166 SIGH 235 @ controller for oR4 : 2 a in the 
Z-members. -plane. ~ 
187 4 236 STO 40 285 + 
198 ST- IHD 45 237 1.3 
189 SF 62 “Intermediate pela - ae 
198 RCL 12 member’ flag is 229 KEQ 15 3 
191 BCL 14 set, Elbow #is | 248 XEQ “P* 88 ST+ IND 25 
192 # calculated and 24! 1.3 289 ISG 25 
$10 stored in R16. 242 STv 15 2968 RCL 15 
ia a0 36 291 RCL 20 
194 GTO A 243 RCL 15 990 Yt 
195¢LBL A 244 STO 66 253 : 
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Step! Key Key Comments Step} Key Key Comments Step/ Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
294 RCL 84 343 GTO 12 392 * 
295 / 344 RCL 46 The end point 393 ST+ IND 25 
296 ST+ IND 25 345.363 coordinates are 394 ISG 25 
297 ISG 25 346 # anateen ees NE) sos wel, 2a 
298 RIN 347 RCL 12 Re dbow. | 396 RCL 24 
299eLBL 17 Inertia subroutine. | 348 SIGH 397 + 
308 RCL 15 Performs the L, 349 * 
Jat RCL 04 La, Lb and Lab 358 ST- IND 45 599 ‘es ‘ 
302 / summations for 351 ABS 
Labels 15 and 16; 406 ST+ IND 25 
303 ST+ IND 25 |aandbarethec.c.| 352 RCL 14 461 ISG 25 
384 186 25 distances. 353 SIGH 402 RCL 26 
305-RCL 26 354 + 403 * 
306 * 355 ST+ IND 44 464 RCL 89 
307 ST+ IND 25 356 26.1 The pointer is 4@5 RCL 16 
302 ISG 25 357 STO 25 stored in R25. The | 496 SIGH 
369 RCL 15 358 3 me rari # 407 * 
jirects the pro; 
a eae 359 RCL 16 tothe coreet | 408 RCL @4 
ae i. ee 369 ABS inertia subroutine. 409 / 
361 X=7? 418 + 
313 ¢ 362 GTO 24 
314 ST+ IND 25 363 XY? a a - n 
es 364 GTO 25 413 RCL 23 
316 RCL 28 365 XEO 21 Elbow routine. 414 RCL 21 
317 # 366 XEQ “p= Main control foran| 445 y49 
318 ST+ IND 25 367 ¥EQ 22 X-Y bend. Calls all 416 ; 
319 ISG 25 368 YEO “0° subroutines. 417 RCL 98 
326 RIN 
32Z1¢LBL 28 The c.g. of the so Les : fe ‘5 
322 XEQ “S" straight piece is 3 5 CL #4 
323 RCL 15 moved back to the| S¢1#LBL 24 Elbow routine. 428 7 
304 2 end point 372 XEA 22 Main control for 421 ST+ IND 25 
sa coordinates. 373 XEQ “P= [an X-Z bend. 422 186 25 
23 Final member of 
326 FS? 61 any base data set an He -3 - = 
327 GIO G is compensated. 376 EO 23 435 ¥ ee 
328 FS? 86 377 CTO 26 426 “_ 
329 GTO G 37@eLBL 25 | Blbow routine 427 RCL 88 
338 RCL 46 379 KEQ 23 main control for 423 + 
S31 + 390 XEQ °P* a Y-Z bend. 429 RCL G¢ 
332eLBL G If the member is 381 KE@ 23 438 7 
333 RCL 12 the final in the 392 EQ -0- 431 ST+ IND 25 
334 SIGN analysis, the 5 A 
335 x program switches 383 KEQ 21 wae IGG 25 
336 s+ IND 45 | © the equation 384 GTO 26 433 RTH : - 
solver. If the bend] 385¢LBL 21 Inertia summation | 434#LBL 22 Inertia summation 
33? FS? Ol radius is zero the | 396 RCL 23 routine. Performs | 435 XE@ E routine. Performs 
338 GTO 38 elbow routine is 397 RCL 84 all summations for} 436 RCL 24 all summations for 
339 RCL 46 skipped. # aninplaneelbowin| 457 pri 94 the following out- 
349 X29? any plane. plane bends: An 
P 359 ST+ IND 25 438 xt2 X-Y elbow in the 
341 GTO 11 396 1S¢ 25 439 + Y-plane, an 
342 FS? 80 251 RCL 28 448 RCL 84 X-Y elbow in the 
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Comments 


Rolls “this” elbow 
radius to “last” 
register and “next” 
elbow radius lo 
“this” register. Ifa 
new “base” data 
set is called for, 
the elbow | factor 
is calculated and, 
printed, and the — 
program is sent to 
label R for the new 
“base” data set. 


The program is 
sent to prompt for 


This section routes 
the program to the 
routines that lead 
to the input of a 
new “base” data 


Sends the program 


Step} Key Key Comments Step! Key Key Comments Step! Key Key 
Line Entry Code} Line Entry Code Line Entry Code 
44] / X-plane, and an 498 / 539 * 
442 ST¢ IND 25 ain inthe | 491 ST+ IHD 25 548 STO 68 
443 186 25 492 ISG 25 541.92 
444 RCL 24 493 RCL 28 542 » 
445 RCL 28 494 + 543 STO 69 
44g X12 495 ST+ IND 25 544 1.15 
447 8 496 ISG 25 545 RCL 83 
448 RCL 16 497 RTH 546 3 
449 + 4984LBL 26 The c.g. 547 YAY 
458 RCL 64 ee aeend| we 
ase me BBL geo _(PaimE coordinates. | 80 48 
453 ISG 25 502 + 551 STO 18 
54 BIH 503 RCL 12 552 Pl 
4S5eLBL 23 Inertia eae 964 SIGN 553 2 
¢ outine. forms 
456 KEG E all summations 365 * 554 / 
457 RCL 24 for the followin 566 ST+ THD 45 955 RCL @3 
458 RCL 21 outplane bends | 587 ABS 556 * 
459 Xt2 An X-Z elbow in 588 RCL 14 557 RCL 06 
469 ¥ os alate anX-Z] 589 SIGH 558 * 
461 RCL 16 ean We 510 * 559 STO 23 
462 ¢ ea ae 568 LASTX 
463 RCL 64 Y-plane. 512¢LBL 11 Elbow data 561 / 
64 / SIS FS? generate Ute | 362 td 
nex! nd radius 1s 
465 ST+ IND 25 a ae ikecanteacthe | 1503 ¥ 
466 ISC 2 last, this section is | 564 $T0 24 
467 RCL 24 516 RCL @3 | skipped. IFR = 0, | 5650LBL 12 
468 RCL 28 ot aa Eni seins GES | seh Rel. Ae 
12 skipped. This 
re = Eh E ole calculates at a . 
K, .149KR’, 
471 REL 64 526 + 137KR3, and 569 STO 46 
472 / bi RCL 62 -149(1.15)R?, 570 FCI 80 
473 ST+ IND 25 * [ 
See ma ET 
524 ROL 62 
475 RTH ae 
476¢LBL E Inertia summation | 929 ~ = i 3 
477 RCL 24 subroutine. Sums | 926 2 
78 RCL 84 the L, La, Lb, and | 527 / 575 ARCL & 
ie ms Ixy _ for both) 599 y40 576 PRA 
outplane O77 GTO “R" - 
486 ST+ IND 25 ae _ | 3297 5784LBL 27 
gel 1S6 25 routines; 4and 6 | 536 1.65 579 XEQ “HY 
are the c.g, 531 OY 
42 RCL 26 conta. for the| 57 986 GTO "AA" Be 
493 * bead — SBeLBL “H* 
484 ST+ IND 25 ‘ 533 $10 06 582 CLA 
425 186 25 534 «149 583 SF 0@ 
406 ROL 24 ee oS || ae 
K\(R 
422 ROL 21 ee TAA. |e TG set. 
46 » VR 5e6¢LBL “0” 
489 RCL 64 538 + 587 CLA 
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to the routines thal 


Step) Key Key Comments Step) Key Key Comments Step/ K Cc ty 
Line Entry Code Line Entry Code Line ae Code ani 
588 CF 82 do the final 637 4 686 ARCL Z 
589 SF Bl member “Ee 
598 GIO D pools on ainda 639 abe oes sect Y 
SSLLBL 38 Suntan walver: 648 STO 35 689 “Fk ° 
Had CF 63 the crowram | program 641 RCL 46 698 AREL ¥ 
sod xed ove [arene | ga BOL at 
“ye jatd to be written 4 692 ADY 
re lh a sll ae 644 # 693 ST- 19 
CL 26 Bee eee | (645: 81> 42 694 RDW 
elbow I is stored 
597 $1” 27 Ror, Plane elastic. ee fa ft 
centers a 
599 RCL 32 calculated feoen 648 RCL 33 697 ST- 17 | 
688 ST/ 33 comet, | 698 RCL 34 ‘| The memories are 
P: “i e Lineach plane, | 650 ST- 42 699 RCL 36 fesdied Torts 
651 RCL 38 708 + er 
663 ST/ 39 ; 652 RCL 39 7A STO 25 
a a 653 RCL 46 762 RCL 31 
654 * 763 RCL 42 
606 Kt2 Inertias are 655 + 704 + 
607 RCL 26 transferred. The 656 RCL 41 705 STO 23 
TO: S| th 
es Lien | ee 746 RCL 37 
618 RCL respect to the first |_ 698 STO 41 707 REL 43 
27 anchor at (0,0,0). 659 FIX 2 Program prompts 788 + 
611 X42 - The inertias are 668 CLST for the input of 709 STO 24 
612 RCL 26 here transferred to 661 SF 12 anchor movements} 719 RCL 29 
the elastic cent 
613 * Len on ers | oo =pni=" at each anchor. 711 $10 26 
o! 7 
a 663 PROMPT 712 RCL 35 
616 RCL 27 one a 
17 ROL 28 665 CLA 714 RCL 41 
618 * 666 CF 12 Each set is printed as oi 
“| 716 1728 The inerti 
619 # 667 ARCL Z The anchor e inertias were 
£2 668 “Fk * movements at Al 717 ST* 26 summed in 
@ RCL 29 een RELY are added to the | 718 ST* 29 _|ft'/ib-in”. Here 
621 - 674 “bk summed totals 719 ST# 32 they are changed to 
622 STO 29 from developed 728 ST# 35 inb-in’. 
623 RCL 34 671 ARCL x lengths. Anchor 
604 49 672 ACA movements at A2 721 ST* 38 
673 ADV are subtracted from| 722 ST* 41 
625 RCL 32 674 ST+ 19 the accumulated 723 ST# 23 
oS ¢ 675 RDN otal 724 ST# 24 
627 ST- 36 676 ST+ 18 725 ST* 25 
628 RCL 33 677 RDN 726 RCL 25 The simultaneous 
629 kt2 678 ST+ 17 727 ST 29 equations of the 
ce Ri ey st va sy = |p mac ad 
* 686 SF 12 729 ST 17 
632 ST- 37 681 “AK2=" 738 RCL 36 matrix are solved. 
633 RCL 32 682 PROMPT 731 RCL 29 
634 RCL 33 683 PRA 232-4 
635 RCL 34 624 CLA 733 ST- 23 
636 * 685 CF 12 734 RCL 26 


Step} Key — Koy Comments Step] Key Key Comments Step} Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
235 RCL 35 784 RCL 18 833 STO 89 
236 * 285 * $34 RDN 
23? ST- 41 786 = 835 STO 88 
238 ROL 26 787 RCL 24 836 CF 81 
739 RCL 17 288 / 83? 15 
748 789 STO 19 838 STO 1 
241 ST- 18 798 RCL 35 839 14 
742 RCL 32 791 RCL 19 848 STO 12 
743 RCL 29 792 ¥ 841 16 
2449 793 ST- 1? 842 STO 13 
745 ST- 38 794 RCL 41 843 “Y" 
746 RCL 24 795 RCL 19 844 GTO B - 
747 RCL 32 796 ¥ S45eLBL *H" Same as above for 
748 RCL 35 797 ST 18 346 STO 10 a Zoriented 
2749 * 298 -1 The signs of the 847 RDN member. 
758 - 799 ST* 1? forces are changed 848 STO @9 
251 STO 24 808 ST 18 py , anchor | 949 pm 
72 RCL 19 881 ST# 19 wee $54 STO 68 
753 RCL 32 902 FIX 8 851 CF Ol 
754 RCL 17 883 ADY System forces are | 959 {6 
755 + $04 “FX1=" rinted. Control © 
- t sent to Label 36. 853 STO J! 
756 805 ARCL 17 954 14 
797 STO 19 886 PRA 
855 STO 12 
758 RCL 23 807 “FY1=" © 
759 ST/ 41 868 ARCL 18 = a 13 
768 ST/ 18 869 PRA 953 “2* 
761 1/% 810 “FZ1=* oe 
762 STO 23 BIL ARCL 19 ong Saintes et 
763 RCL 29 812 PRA 861 “F=" printed along with 
764 RCL 41 813 FIX 2 862 ARCL 88 the identifying 
765 % $14 CTO 36 cae orientation code 
766 $T- 35 815¢LBL °K" Stores the user- re us i (X, Y, or Z). 
767 RCL 29 816 STO 16 input values of 365 a 
stress point J 
- - 8 * a 49 cordate Sets 866 ARCL 18 
pointers for an cA 
7 ST- 1? 319 RI taghiahe Ae 
771 RCL 29 826 STO 86 member, goes to 
772 RCL 23 621 CF OL imomentiand ‘strezé| “802 RCL 19 Calculate Mx at 
7 899 {14 routine. 878 REL designated point. 
871 RCL 
74 CHS 
A ou 29 = - . = : 
776 REL 24 825 $10 12 
18 
777 RCL 32 226 16 874 RCL 
778 RCL 41 997 STO 13 sa 
75 + 828 “K° 
78h- 429 G10 ; 
721 STO 24 B360LBL °L° Same as above for J 
: 879 
782 RCL 19 931 STO 16 a Y-oriented 868 STO 14 
763 REL 2B $32 PDH member. ans | 
sei Q81 RCL 17 
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Step/ Key Key Comments Step/ Key Key Comments Step) Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
882 RCL 34 Calculate My at 931 ARCL 85 The user agrees, or| 98@ STO 49 the moment 
893 RCL 16 designated point. 932 “78 uts inthe OD#. It} 9gy sto {6 routine. 
884 - 933 PROKPT —_—_—| 8 Storecl and 982 “Als 
985 * 934 CLA ies 983 GTO 6 
886 RCL 19 935 S10 05 9844LBL 37 Coordinates of the 
887 RCL 33 936 *0D=" 985 CF 61 final point are 
888 RCL 88 937 ARCL 05 986 i . ei na 
889 - 938 PRA 987 STO 63 
990 * 939 FIX 6 Pointer to correct | 988 RCL 21 oberon ad 
99 - 940 46 Z value for stress is} 989 §T0 99 the momentsat A2. 
892 $10 15 941 RCL @5 stored in R00. 996 RCL 22 Program is sent to 
893 RCL 18 Calculate Mz at 942 + 591 STO 16 moment routine. 
894 RCL 27 designated point. 943 STO 66 992 -1 
895 RCL 68 944 RCL IND 11 |STiscalculatedand| 993 ST# {7 
896 - 945 6 stored in ROL. 994 ST# 18 
897 + 946 * 995 ST« 19 
898 RCL 17 947 RCL IND 06 996 *A2“ 
899 RCL 28 948 / 997 CTO B 
988 RCL a9 949 ABS 9969LBL -P- | Rolls Z-plane 
961 - 958 STO at 999 RCL 21 oe to 
902 * 51 2 SB is calculated, 1688 RCL 22 Pe 
903 - 4 t using the user- 1001 STO 21 SHRINES: 
904 STO 16 953 RCL IND 12 |@Pproved value of | 1662 RDN 
905 FIX 6 Moment values are 954 RCL IND 13 L. It is stored in 1683 STO 22 
~906 *MR=* printed. 955 R-P D2: 1064 RTH 
907 ARCL 14 956 12 LO65eLBL “O° Rolls Y-plane 
988 PRA 957 + 1806 RCL 26 | coordinates to 
969 “HY=" 958 RCL IND a0 1967 RCL 22 «Plane 
910 ARCL 15 959 / 1908 STO 20 coordinates. 
911 PRA 966 RCL 86 1649 RDN 
912 “HZ=" 961 + 1818 STO 22 
913 ARCL 16 962 STO #2 1611 RTN 
914 PRA : 963 RCL Z SEis calculated and| !812¢LBL *$" | Rolls X-plane 
915 FIX 2 If the program is 964 R-P stored in RO3. {613 RCL 22 coordinates back to 
a6 AR ee ee 965 S10_@3 1a14 RCL 26 ie => 
917 FS? Ot label 37.” oe 966 “ST=" ST, SB, and SEare| 1015 RCL 21 7 
918 GTO 37 967 ARCL @! printed. 1416 STO 22 
919 RCL 8? Prompts the user | 968 PRA 1617 ROH 
920 “IT=" by displaying ae 969 “SB=" 1618 STO 21 
921 ARCL 87 — | Liactor i tne oe | 978 ARCL a2 1019 RDN 
F22 PROMPT puts in another 971 PRA 1828 STO 26 
923 CLA value, it is stored. | 972 “SE=" {621 RTN 
924 STO 66 The value used is | 973 RCL 03 1822¢LBL “N° | Shifts all registers 
925 I=" printed; 974 PRA 1823 RCL 13 | from “next” point 
926 ARCL @6 975 FIK 2 1924 S10 if | Galate "hie point 
927 PRA 976 STOP 1825 RCL 14 : 
928 1 Asks the user if 9774+LBL 36 Coordinates for Al) 1026 STO 12 
929 STO 45 the OD is from 978 @ are stored and the | 1927 RCL 44 
936 ~OD=" sbeses Haleser' 1. | ong att program is sent to | 1998 s7q 45 


57 


Step} Key Key 
Line Entry Code 


Comments 


‘Step/ Key Key 
Line Entry Code 


Comments 


Step} Key Key 
Line Entry Code 


Comments 


1829 | 
1038_ST+ 87 


1O314LBL “¥° 
1032 1.65 
1833 RCL 66 
1034 X=8? 
1835 RTH 
1836 7 

1037 2 

1038 ENTERT 
1839 3 

1848 7 

1841 YtX 
1842 .3 
1043 XY 
1044 7 

1845 RIN 


1046 END. 


Calculates the I 
value for the bend 
whose K factor is in 
memory. 


Chapter ? 


The Need for Thrust Blocks 
in Buried Thermoelastic 
Resin Pipes 


Program TI-59-2: Thrust Blocks for Buried Pipe Fittings; 
Tees and Elbows 


Introduction: 


TI-59-2 is an analytical approach to the problem of thrust 
blocks for buried pipe fittings, specifically tees and 90- 
degree elbows. The method of analysis was developed 
by M. H. Anderson of Ameron Corporation. The pro- 
gram determines the maximum “safe” distance from a 
fitting to a thrust block, that the fitting may be buried 
without a block at all, or, finally, that the fitting needs 
an encapsulating thrust block to stay under the allow- 
able stress. The analysis handles only 90-degree elbows 
and size-to-size tees and is designed for welded or 
epoxy joints. 


Nomenclature: 
Thirteen pieces of data must be input by the user: 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 

EL: Longitudinal modulus of elasticity (Mega 

si) 

: — modulus of elasticity 
(Mega psi) 
e: Thermal growth rate (in/100 ft) 

’P: Internal pressure (psig) 

: Coefficient of subgrade reaction (Ibs/in?) 

S: Allowance stress (psi) 

: Poisson’s ratio (longitudinal to cir- 
cumferential 

: Soil density (Ibs/ft>) 

H: Depth of soil cover (to top of pipe) (ft) 

: Friction factor of pipe to soil 

: Density of pipe material (Ibs/in°) 


Additionally, the program calculates the following data: 


ID: Pipe inside diameter (in) 
I: Pipe moment of inertia (in*) 
Ww: Water weight per inch 
P: Thrust force (Ibs) 
A: Pipe area (in?) 
Wp: Pipe weight per inch 


Method: 


The analysis uses beam-on-elastic-foundations equa- 
tions to find the maximum allowable deflections and 
thrust forces for the two fittings, and then balances 
the deflections due to thermal expansion and pressure 
elongation against the deflections from friction resis- 
tance and soil bearing pressure. First the program calcu- 
lates the foundation modulus: 


_ “[ekoyon) 
(4(EL)() 


*The author of the paper that contains this analysis, 
Ameron document EB-24, developed the method for 
use with Reinforced Thermoelastic Resin pipe, which 
does not have homogeneous properties. Therefore, the 
value of Poisson’s ratio is the value rated from the longi- 
tudinal to the circumferential direction. This value is 
“normalized” in the program by multiplying the value 
by the ratio of EL to EC. Pipe of this type usually 
exhibits values of 0.6 and greater. The user should be 
sure that the correct value is input. 
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Using this, the program calculates the maximum thrust 
allowed for the elbow and the tee: 


(P)(ID) EL jou (A(1) 
P= 4S ~ |——— — (MU) - 
| ee ae coe) (0D) 
for tees 
=< _ PMD) 
( a for elbows 
(4)()(4) A 


From the above values, the maximum allowable dis- 
placement into the soil is calculated for each fitting: 


= _ PQ) for tees 
(2)(OD)(KO) 
®)Q) 
(OD\KKO) for elbows 


Then the program calculates all the contributions to 
these values of y, For thermal expansion: 


= (e)(L), inches 
For pressure elongation: 
(P)QD)(L) 
ALp = 
" @\TEL) 


For the thrust value: 


(1 — @(MU) (. inches 


_ &Y 
~ (AYELY 


inches 


For soil friction: 


p= Or inches 
(2)(A)(EL)’ 
where 
F = (FF)(W) 
= (2)(We) + (Ww) + (Wr) 
= we = weight of soil surcharge over 


pipe, Ibs/in 
So, finally, the equation is: 
y = AL; + ALp — ALp — AL; 


If friction is not considered, the equation is a simple 
linear equation. If friction is considered, the equation 
becomes a quadratic in which the smaller root is the 
maximum “safe” length to an unblocked fitting. If the 
root is irrational, this means that the fitting does not 
need a thrust block, or that the “safe” length is un- 
limited, If the value of y is negative, the fitting will be 
overstressed without an encapsulating thrust block. 


Limitations: 


TI-59-2 only analyzes one pipe size and thickness ata 
time. The analysis is only developed for 90-degree ¢l- 
bows and size-to-size tees. The analysis always as 
sumes that the pipe will be filled with water. The input 
value of allowable stress should be normalized with 
respect to any stress intensification factors. 


19 


| ——— 


Z°6S-1] WesBOlg Jo sajdiuexz jz aanBly 


User Instructions 


Program Number _TI-59-2___ Title Thrust Blocks for Buried Pipe Fittings || 
Step Instructions Input Keystroke Display 
1 Read in magnetic cards, CLR 1, 2, or 3 

2 _ Initialize program. B 0 

3 Input OD. OD A OD 

4 Input T. T A T 

5 Input EL, EL A EL 

6 Input EC. EC A EC 

7 ~~ Inpute. e A e 

8 Input P, P A P 

9 — InputKO. KO A KO 

10 Input. S A S 

11 Input MU, MU A MU 

12 InputGAM. GAM A GAM 

13 InputH. H A H 

14 Input FR FF A FF 

15 Input DEN. DEN A DEN 
B Lell 

16 Execute program. TEE 
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Data Register Contents 


REGI- : REGI- 
STER DATA STER DATA 
00 | - 30 
Ol oD 31 
2 T 32 
03 EL 33 


15 | Moment of inertia | 45 | 27371717 


17 3216 
| 48 


21 Aell 51 54 
22 A TEE 52 33 
23 "A" : 53 2632 
y 24 "B" ell 54 36 
25 "B" TEE 55 3041 
26 IND 56 221330 


161731 


Example of a case where thrust blocks are Example of a case where the “safe” length 
not needed at either tees or elbows, lo an anchor is some definite value. 


4.5 
0.18 
1.3 
3. 32 
1,26 
100. 
280. 
4000. 
0. 64 
110. 
4. 
0. 4 
Q. 065 


99999, 99 
99999, 99 


Example of a case where friction is not con- Example of a case where the fittings will be 
sidered. overstressed without a thrust block. 


0.065 


0. Oo 
0. 00 


Source Documentation 


BURIED PIPE ANALYSIS 
(REF. AMERON DOCUMENT EB-24) 


OD = 4,5” 

t = .18" 

E1 = 1,24 EE6 psi 

Ec = 3.2 EE6 psi 

e = T = 1.56 in/100’ 

Pressure = 100 psig 

KO = 280 Ibs/cubic inch (foundation modulus) 

S = 4000 psi (allowable stress) 

} = 0.68 (poisson’s ratio, longitudinal to circumferen- 
tial) 

5 = 110 Ibs/cubic foot (soil density) 

H = 4 ft. (depth of soil cover) 

f = 0.4 (friction factor) 

D = 0.065 Ibs/cubic inch (density of pipe) 


ID = 4.5 — 2(.18) = 4.14” 
ee = ((4.5)% — (4:14)*)(my/64 = 5.709 in’ 
= (4.5 — 0.18)(0.18)(ar) = 2.443 in? 


d = beam characteristi we OE __ es pines 
am enaractenisic ~ V (4)(1.24 EE6)(5.709) 


Find the maximum thrust loads on the pipe from all 
interna] and externa] sources to stay within the allow- 
able stress: 


(100)(4.14) 
(4)(0.18) 
(4.5) 1 
(4)(5.709)(0.082) (2.443) 


(100)(4.14) (1.24 (1.56) } 
- | : 1.24 EE6 
{100 | (2)(0.18) (= 4 a (a200) ‘ ) 


(8)(0.082)(5.709) 
(4.5) 


(4000) — 
= 1709.521 Ibs = P for elbows 


= 2230.592 lbs = P for tees 


Find the maximum allowed deflection of fittings from 
the values of P: 
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(1709.521)(0.082) 


hell = = 0. 
. (4.5)(280) 
Rises (2230,592)(0.082) =0, 


(2)(4.5)(280) 


111 inches 


072 inches 


Calculate alJ contributions from various forces to the 


total A value: 


(5 


6) 


Atemp = (1200) (L) = 0.00130 (L) inches 


Apressure = 


(100)(4.14)(L) 


‘ 24 
(4)(0.18)(1.24 EE6) (- “eee [3 | 


= 2.193 EE-4 (L) inches 


= (1709.521)(L) 


APoy = 


s (2230.592)(L) 


APree = 
(2.44. 


Afriction = 


(2.443)(1,24 EE6) 


3)(1.24 EE6) 


OU) 


(2)(A)(E1) 


F=f. 


Ww 


= 0.00056 (L) inches 


= 0.00074 (L) inches 


= (2)(We) + (Wp) + (Ww) 
We = (110)(4.5)(4)/(144) = 13.75 Ibs/in 


2We 
Wp 


Wel 


(2)(13.75) = 
(2.443)(0.065) = 0.159 Ibs/in 


27.50 Ibs/in 


Ww = ((4.14)"(m)/4)(62.4)/1728) = 0.486 Ibs/in 
= (27.5) + (0.159) + (0.486) = 28.145 Ibs/in 
= (0.4)(28.145) = 11.258 Ibs/in 


Afriction = 


(11.258)(L?) 


= 1.858 EE-6(L) inches 


(2)(2.443)(1.24 EE6) 


Solve the quadratic equation: 


B 


— VB - 4AC 


2A 


(smaller root) 


For both cases (elbows and tees) the “A” values is the 
contibution dre to friction 


Sx 


A= 188 EES 


BEbhows: C= O11 


Tees 


C= 0078 


Elbows: B= (0.00130) + 2.193 EE-4) — (0.00056) 


Tes 


Laces 


Lise 


= 0.0005 
B = (0.00130) + (2.193 EE-4) — (0.00074) 
= 0.00078 


(0.00035) — V(0.00095) — (01-858 EE-6)0.111) _ 


(2)(1.858 EES) 7 


_ (0.00078) ~ V/(0.00078) — (4)(1-858 EE-6)(0.078) _ 
(2\(1-858 EE-6) 


176.991" = 14.749 ft 


136.654" = 11.388 ft 


TI-59-2 


Program: 


Sample Problem 


OD = 4.5" MU = 0.68 
T = 0.18" GAM = 115 #/f3 

EL = 1,240,000 psi H=4 

EC = 3,2000,000 psi 
e = 1.56 in/100 ft 
P = 100 psi 

KO = 280 #/in3 

SA = 4000 psi 
y 


ee ANSI IRIIIKDS Sti 
(a) TEE (b) 90 DEGREE ELBOW 
Key 
Step Input Stroke Display Printer Comments 

1 E 0 Initialize program. 

2 4.5 A 4.5 4.5 OD | Store OD in RO1; print. 

3 18 A 0.18 0.18 T | Store T in RO2; print 

4 1.24 A 124 1.24 EL | Store EL in RO3; print. 

5 3.2 A 3.2 3.2 EC | Store EC in R04; print. 

6 1.56 A 156 1.56 e | Store e in ROS; print. 

7 100 A 100. 100. P | Store P in RO6; print. 

8 280 A 280. 280. KO | Store KO in RO7; print. 

9 4000 A 4000. 4000. S | Store S in RO8; print. 

10 -68 A 0.68 0.68 MU | Store MU in RO9; print. 

11- 110 A 110. 110. GAM | Store GAM in R10; print. 

12 4 A 4, 4. H | Store H in R11; print. 

13 A A 04 0.4 FF| Store FF in R12; print. 

14 065 A 0.065 0.065 DEN | Store DEN in R13; print. 

15 

» 14.75 Lell 
11.39 TEE | The program calculates the founda - 

tion modulus and the maximum 
thrust force that can be applied to 
either the tee or the elbow. This is 


found using the input values of S, 
KO, OD, and EL. The program has 
also calculated the maximum allow - 
able deflection for each fitting. Then 
the analysis finds the contributions 
to these values of delta from 
temperature, pressure, friction, and 
the maximum thrust force. Tem - 
perature and pressure work in one 
direction, while friction and the 
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Input 


Key 
Stroke 


Display 
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Printer 


Comments 
thrust force work in the opposite 
direction. If friction is not included 
in the analysis, the equation is a 
simple linear statement. If friction 
is considered, the equation becomes a 
quadratic, whose smaller root is the 
“safe” length, The program prints 
the two values of L, the value 
9999999 if a thrust block is not 
needed, or, finally, if the pipe will be 
overstressed without an encapsulat - 
ing thrust block, the printed value 
will be 0.00. 


Coding Form 


7 


Program Number TI-59-2 Title Thrust Blocks for Buried Pipe Fittings 
Loc Code Ke Comments Loc Code Key| |Comments Loc Code Key | Comments 
oqo a4 4 Initialize program: | Ob0 42 REL izO 22 INV 
O01 G6 6 |Set pointers for O61. 23 23 121 49 PRD 
Q02 42 STO |inputroutine, reset] 062 95 = 122, 15.15 
gos 29 2 all Ree to “OFF.” | G63 392 RTH __[ 123 42° RCL Jy is calculated 
N04 25 CLR 664 75 LBL [Main program. 124 O07 07 |and stored in RI16.- 
oaS 42 sTo 065 12 8B |Clears test 125 65 x 
006 O00 OO 06 29 CP |register. Adjusts 126 43 RCL 
007 Fl RS 06? 9% AD\' |units for EL, EC, Ize Ol OL 
008 76 LBL 068 Qi 1 fande. 1278 55 + 
009 15 €E, 069 52 EE 129 04 4 
010 81 RST 070 06 6 130 55 - 
011 76 LEL /Input routine. O71 49 PRD 131 43 RCL 
11 A Uses ROO and R29 | 972 2 O02 132 03 0O3 
32 Kt as pointers. 073 493 PRD 133 559 + 
69 OP 974 04 04 34 43 RCL 
? ors OY 1 125 15 15 
076 O02 2 136 95 = 
o77 oo QO 137 34 [4% 
07s oo oO 13 34 1% —— 
O79 35 17% 139 95 = 
e 020 44 PRD 140 42 STO 
6 og: of Os 141,16 ~=16 
o bg2 25 CLR |Calculates pipe 142 43 RCL |Maximum allowed 
32 8 083 43 RCL |Jarea, pipeID, and | 143 08 08 | thrust on a tee is 
63 OP 084 01 01 |moment of 144 75 -  |ealculated and 
O8 _O6 085 33 = |inertia. ID is 145 3 © |stored in R18. 
f2 ST# 086 42 STO |storedin R17. Ais| 146 43 RCL 
a0 ag? 14 14 |storedinRi4.1lis | 147 06 06 
at 0&2 35 42 _ |stored in R15. 148 65% 
ré Subroutine: 039 42 STO 149 43 RCL 
16 Solves quadratic o90 15 #15 150 i 1? 
hs equation. If the O91 43 REL isl So = 
term B?— 4ACis | 092 at Ot 152 02 2 
negative, an 033 75 - 1538 55 = 
“infinite” length ao4 02 2 154 3 RCL 
is returned tothe | 095 65 xX 155: 02 02 
main program. 096 3 RCL 156 65 x 
ag7 a2 02 1S? 43 RCL 
<i oss 95 = 158 3 03 
38 agg 2 sTd 159 53 = 
a4q 73 RCs 100. 617 )~«17 160 3 ROL 
G41 26 26 101 33 x2 161 04 a4 
O42 34 +/- 102 22 INV 162 65 x ° 
g43 95 = 103 44 SUM 163) 43 RCL 
O44 77 i104 14 14 164 as 09 
045 38 105 33 xe fos: 7S = 
046 45 i06 22 IN¥ 166 42 RCL 
O47. 46 ary 44 SUM 167 05 O5 
o4e 92 108 15 15 168 65 X& 
O49 76 If the quadraticis | 109 89 4 169 43 RCL 
asa 33 SIN |rational, the 10 649 PRD iva. 608 3 
O51 34 IN smaller root of the 41 14 14 171 St ) 
os2 85 + equation—the 12 49 PRO P2 St Ixt 
ass 72 RC# = |safe’ length—is 3 15 45 173 5a) 
n54 7 27 |returned to the 114 O04 4 174 B5 oN 
oss 94 +/-  |main program. 115 22 INV i75 as 8 
O86 54 ) 16 49 PRD 176 65 x 
ase So = 117 «140 14 7F 3 RCL 
aoe 2 2 118 d& 6 173 16 16 
o59 sg = {9 a4 4 i739 65 X 


69 


’ 


Loc Code Key Comments Loc Code Key| Comments Loc Code Key Comments 
13045 RCL 240 55 + 300 76 LBL ; 
181 15 i5 241 01 1 30 RAD 
182 55 = 242 01 1 302 RCL 
HSS 42 ROL 243 01 1 303 22 
18401 OL 244 95 = 204 BE 
18S 95 = 245 44 SUM 305 GRI 
186 42 STU / 246 20 20 306 STF 
ler _1e 18 _ 247 43 RCL [Weight of pipe is |. 307 ci2 = 
188 93 RCL |Maximum allowed] 248 G1 (G1 Jadded to R20, ceyars) LEL |The friction term 
oH a3 08 ees le “i 249° 33 XE |Ibs./in. ae BRI} for the quadratic 
? co = Jelbow is ate 250 75 - 2 (CL | equation is 
23 RCL and stored inRI9.| 251 43 RCL 311 20 | calculated and 
0& 06 ese 1? 17 812 = stored in R23, This 
65 3 OFA 4 o> 213 a jock 
253 33 Ne 4 & S.A. 
:@ RCL 3 Z 
ae 284 54) ee 
SS - 256 89 f 326 sd 
Qe 4 257 55 = 317 ks 
s9 258 04 4 a8 as 
43 RCL 359 65 x 319 us 
oe ae 260 43 RCL 320 = 
Sa) 261 13 13 321 +7 
55 = 262 95 = 222 STO 
33 263 44 SUM : oe 
48 ROL 264 20 20 3 oe The thrust term of 
u2 a1 265 3 RCL | Friction factor is 3 19 the value B for tees 
5S = 266 12 12 |multiplied into | 32% PONE | sare ta 
04 4 32 20 tored in 3 
267 49 PRD |R20. eee 2 
— Be : 
a = ea 2 > 328 14 
pe gee oe i REL Maximum allowed a2? 5 = 
22 Se 270 18 18 |deflecionfora | 229 43 RCL 
43 RCL 271 65 x |teeiscalculated | 32% U2 US 
aS ee: 272 42 RCL |and stored inR22.| 322 73 = 
se, 273 16 16 god wa te 
oo 274 «55 = 224 42 STO 
43 RCL 275 42 RCL 225 24 24 
mee ae 276 01 01 336 55 -  |Thrust term for Bis 
Re. tes 277 «55 = 227 43 RCL |calculated for 
AS 273 438 RCL 328 19 19 |Jelbows and stored 
ce on 272 «07 «7 339 65 x in R25. 
er StT 260 55 ¢+ 340 42 ROL 
42 RCL [Fill load on pipe is a a a41 18 18 
10 {0° |calculated and 6 a5 242 95 = 
é5 stored in R20 iG 343 42 5 
<3 RCL |W), sin 3 jaa 25 25 
oe oe 65 Maximum allowed | 245 43 RCL |The pressure term 
ae Bal “ 2 G2 2 |deflectionforan | 245 G6 6 |for the value B is 
Ol Ol 2 55 - |elbowis calculated! 347 65 « {calculated and 
— = é 42 RCL |and stored in R21. | 348 43 RCL |added to the 
239 Ss 2 16 18 349 47 17 |thermal term. This 
soy ak 230 65 350 55 +  |sumis added to 
232 95 = = 43 351 04 4 R24 and R25. 
ban ee 252 19 3592 55 + 
-_ SIG 232 25 353 43 RCL 
20 20 = a oe 
42 ROL |Weight of water 5 a pe ae Oe 
236 17 17 |isadded to R20, [52241 355 55 + 
oe lo I [fAellisless than | 256 43 RCL 
738 65 2 zero, Flag 1 is set. | 337 2 OS 
235 39 ¢ a IfATEEislessthan} 253 S53 
Es zero, Flag 2isset.|359 53 ¢ 
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Loc Code Key | Comments Loc Code Key Comments Loc Code Key Comments 
260 Oi 1 420 44 SIM 

$61 75 = 421 27 27 

362 02 2 422 \e6 ft 

363 65 -& 423 42 3710 

364 423 RCL 424 29 29) 

ge5 UA OY 425 7% LBL |If Flag J is set, 
266 65 % 426 14 QD |then Lell becomes 
367 43 RCL 427 22 It |zero(overstressed), 
ge¢ O23 Of 428 47 IFF (If Plag 2 is set, 
69 55 + 42% 01 Ot |LTEEbecomeszero 
370 4% RCL 430) 42 EXC |(overstressed), 
371 O04 04 431 O00 90 

272 54 432 42 570 

373 65 + 423 26 26 

374 43 REL 434 76 LBL 

275 05 OS 435 43 EXC 

76 9S = 436 22 IH 

377 4644 SUM 427 27 IFF 

378 24 24 423 Oz 2 

379 36944 SUM 439 49 PRD 

330 25 25 4460 oO OC 

ool O2 £ Load pointers for | 441 42 S70 

382 04 4 quadratic 442,29 29 

383 42 STO |subroutine. 442 76 LEL |The values of L are 
284 27 27 444 49 PRD |converted to feet. 
385 02 2 445 1 1 

386 1 1 446 02 2 

ge? 642 STO 447 35174 

396 26 26 448° 49 PRD 

389 43 RCL If the friction 449 25 28 

390 12 12 |factor is zero, then) +57) 49 PRD 

331 22 IH I|thesafelengthisa| 45: 29 29 

292 67 EQ linear equation. 452 43 RCL |Lell is printed. 
392 30 TAN |FachvalueofAis | 453 44 44 

394 42 RCL  |divided by its 454 69 OP 

335 21 21 |corresponding B 455 04 04 

396 9S = term. Lell is stored} 456 58 FIX 

297 43 RCL Jin R28, TEE isin 457 O02 02 

298 24 24 |R29. 458 43 RCL 

399 95 = 459 28 22 

400 42 STO 460 69 OP 

401 28 28 461 06 06 

402 43 RCL 462 43 RCL J|TEE is printed; = 
403 22 22 463 45 45 |the program is 
404 55 + 464 69 OP Ireset. 

405 43 RCL 465 O04 04 

406 25 25 466 42 RCL 

407 95 = 467 29 29 

4028 42 sTO 468 69 OP 

409 29 29 469 06 O06 

410 61 GTO 470 328 ADY 

417.14 OD | 471 96 ADY 

412 76 LBL |If the friction is 472 98 ADY 

413 30 TAN |considered, the 473 98 ADY 

414 16 At quadratic is solved | 474 22 IMY 

415 42 $70 |for each value of 475 5@ FIX 

416 23 28 |L, forelbowsand | 476 81 RST 

air Ol 7 tees. 

418 44 SUM 

419 26 2 


cal 


Buried Pipe Analysis 


Pipe outside diameter (in) 

Pipe wall thickness (in) 

Longitudinal modulus of elasticity (Mega psi) 
Circumferential modulus of elasticity (mega psi) 
Thermal growth rate (in/100 ft) 

Internal pressure (psig) 

Coefficient of subgrade reaction (Ibs/in’) 
Allowable stress (psi) 

Poisson’s ratio (longitudinal to circumferential) 
Soil density (Ibs/ft*) 

Depth of soil cover (to top of pipe) (ft) 

Friction factor of pipe to soil 

Density of pipe material (Ibs/in*) 


“Safe” length from an anchor to an elbow (ft) 
“Safe” length from an anchor to a tee (ft) 
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Program HP-41CV-2: Thrust Blocks For Buried Pipe Fittings; 


Tees and Elbows 


Introduction: 


HP-41CV-2 is an analytical approach to the problem of 
thrust blocks for buried pipe fittings, specifically tees 
and 90-degree elbows. The method of analysis was 
developed by M. H. Anderson of Ameron Corporation. 
The program determines the maximum “safe” distance 
from a fitting to a thrust block, that the fitting may be 
buried without a block at all, or, finally, that the fitting 
needs an encapsulating thrust block to stay under the 
allowable stress. The analysis handles only 90-degree 
elbows and size-to-size tees and is designed for welded 
or epoxy joints. 


Nomenclature: 


There are thirteen pieces of data that must be input by 
the user. They are: 


: Pipe outside diameter (in) 
: Pipe wall thickness (in) 
: Longitudinal modulus of elasticity 
(Mega psi) 
Circumferential modulus of elasticity 
(Mega psi) 
: Thermal growth rate (in/100 ft) 
PRESS: Internal pressure (psig) 

KO: Coefficient of subgrade reaction (Ibs/ 
in?) 
Poisson's ratio (longitudinal to cir- 
cumferential) 
Density of the soil (Ibs/ft*) 
Depth of soil cover (ft) 
Friction factor of pipe to soil 
Density of pipe material (Ibs/in*) 
Allowable stress (psi) 


Ee: 


* POISSN: 


d.SOIL: 
COVER: 
FR.FAC: 
d.PIPE: 
Sa: 


Additionally, the program calculates the following data: 


ID: Pipe inside diameter (in) 
I: Pipe moment of inertia (in*) 
Ww: Water weight per inch 
P: Thrust force (lbs) 
A: Pipe area (in?) 
Wp: Pipe weight per inch 


Method: 


The analysis uses beam-on-elastic-foundations equa- 
tions to find the maximum allowable deflections and 


thrust forces for the two fittings, and then balances 
the deflections due to thermal expansion and pressure 
elongation against the deflection from friction resis- 
tance and soil bearing pressure. First, the program cal- 
culates the foundation modulus: 


a “l(KO\(OD) 
(4)(E1)(1) 
Using this, the program calculates the maximum thrust 
allowed for the elbow and the tee: 
as PI 
— {ss __ | (RESS)GD) EI | 


((WALLT) Ee POSN) ~ OED 


x OMG for tees 
(OD) 
(PRESS)(ID) 
qo 
P= Ewes for elbows 
(OD) 1 
MA) A 


From the above values, the maximum allowable dis- 
placement into the soil is calculated for each fitting: 


_  &W 


(2)(OD)(KO) 


__ Ow 


(OD)(KO) 


Then the program calculates all the contributions to 
these values of y. For thermal expansion: 


ALr = (e)(L), inches 


For pressure elongation: 


for tees 


for elbows 


*The author of the paper that contains this analysis, 
Ameron Document EB-24, developed the method for 
use with Reinforced Thermoelastic Resin pipe, which 
does not have homogeneous properties. Therefore, the 
value of Poisson’s ratio is the value rated from the 
longitudinal to the circumferential direction. This value 
is “normalized” in the program by multiplying the 
value by the ratio of El to Ec. Pipe of this type usually 
exhibits values of 0.6 and greater. The user should be 
sure that the correct value is input. 
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__(PRESS\D\L) 


EL 
= — (2)(POISSN) {| — ) 
ALp (4)(WALL TED (1 - (2)¢ ) (=) 


inches 


For the thrust value: 


OL). 
p= , inches 
(A)(E1) 
For soil friction: 
e Hur inches 
(2)(A)(B1) 
where 
F = (FR.FAC)(W) 
W = (2)(We) + (Ww) + (We) 
We = {SOLIGOVERKOD) = weight of soil 


oe surcharge over pipe, Ibs/in 
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So, finally, the equation is: 
y = AL; + ALp — ALp — AL; 


If friction is not considered, the equation is a simple 
linear equation. If friction is considered, the equation 
becomes a quadratic where the small root is the maxi- 
mum “‘safe”’ length to an unblocked fitting. If the rootis 
irrational, this means that the fitting does not need a 
thrust block, or the “‘safe’’ length is unlimited. If the 
value of y is negative, this indicates that the fitting will 
be overstressed without an encapsulating thrust block, 


Limitations: 


HP-41CV-2 only analyzes one pipe size and thicknessat 
a time. The analysis is only developed for 90-dgree 
elbows and size-to-size tees. The analysis always as- 
sumes that the pipe will be filled with water. The input 
value of allowable stress should be normalized with 
respect to any stress intensification factors. 


Figure 2.2 Examples of HP-41CV-2 Program 
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<== 


Keyboard Card Labeling 


== === 
lh 
== ==) 
— ff 
— i — | 
AAA & 
= — 
Bee & 


7 GG wewietsescase pcp, T-PAaCRKARD [Se mewretr-pac« ann ic] 
SYSTEM 
aes 
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KEYBOARD 


Program Number _HP-41CV-2 


User Instructions 


Title _Thrust Blocks for Buried Pipe Fittings 


Instructions 
Read in magnetic cards (six sides). 
Initialize program. 


Input WALL T. 
Input E1. 

Input Ec. 

Input e. 

Input PRESS. 
Input KO. 
Input Sa. 

Input POISSN. 
Input d.SOIL. 
Input COVER. 
Input FR.FAC. 
Input d_PIPE. 


Input 


OD 
WALLT 
El 

Ec 

e 
PRESS 
KO 

Sa 
POISSN 
d SOIL 
COVER 
FR.FAC 
d PIPE 


Keystroke 


Program Number 


20 


BRAKRRBRRBBBNUKRRREBRY 


Registers, Flags, Assignments 


_HPAICV2 _ Title 


DATA REGISTERS 


POINTER 
OD 


=aP 
<B> for elbows 
“B" fox tees 


pomicr 
pomier 
Safe L for elbows 
Safe L fox tees 


Thrust Blocks for Buried Pipe Fittings 
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39 
40 
4] 
42 
43 
44 
45 
46 
47 
48 
49 

Init - 
# sic 
1 Cc 
2 Cc 
Label Key 
RTR E(15) 


DATA REGISTERS 


FLAGS 
Set Indicates Clear Indicates 
OVERSTRESSED ELBOW 
OVERSTRESSED TEE 
ASSIGNMENTS 
Function Key 


Example of an analynis where friction ty nut 


considered, 


OD= 4,500 
WALL T= 6,160 
E1= 1.300 

Ec= 3,320 

e= 1,260 
PRESS= 100.000 
KO= 290,900 
Sa= 4,606,660 
POISSN= 6.640 
d. SOIL= {16,900 
COVER= 4,000 
FR.FAC= 6,000 
d.PIPE= 0,065 


90" ELBOW 
SAFE L= 12, 164° 
TEE 
SAFE L= 12,372" 


Example of a case where the safe length toan 
unblocked fitting is some definite value. 


OD= 4.508 
WALL T= 0.18 
E1= 1.249 

Ec= 3.208 

e= 1.568 
PRESS= 100.900 
KO= 298.300 
Sa= 4,000.900 
POISSN= @.688 
d.SOIL= 110.008 
COVER= 4.668 
FR.FAC= 0.408 
d.PIPE= 9.065 


96" ELBOW 


SAFE L= 14,749° 


TEE 


SAFE L= 


Example of a ultuation whore thruat blocks 
are not needed on cithur elbows or teun. 
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OD= 4,564 
WALL T= 6,180 
E1= 1,366 

Ee= 3.320 

e= 1,260 
PRESS= 100.600 
KO= 290.008 
Sa= 4,000,000 
POISSN= 6.640 
d.SOIL® 116.000 
COYER=] 4,000 
FR.FAC= 9,466 
d.PIPE= 6.965 


96” ELBOW 
UNLIMITED 
TEE 
UHLIMITED 


Example of a case where the piping ls over- 
stressed without a thrust block 


OD= 4.564 
WALL T= 6.186 


E1= 1.246 

Ec= 2,200 

e= 3,500 
PRESS= 1,600.490 
KO= 286.688 

Sa= 190.068 
POISSN= 8.600 
d.SOIL= (10,998 
COVER= 4.088 
FR.FAC= 4.498 


d.PIPE= 8,665 


986” ELBOW 


OVER 
STRESSED 


TEE 


Source Documentation 


BURIED PIPE ANALYSIS 
(REF. AMERON DOCUMENT EB-24) 


OD = 45” 

t= 1s" 

El = 1.24 EE6 psi 

Ec = 3.2 EE6 psi 

e=T=156in100' 

Pressure = 100 psig 

KO = 280 Ibs/cubic inch (foundation modulus) 

S = 4000 psi (allowable stress) 

un = 0.68 (poisson’s ratio, longitudinal to crcumferen- 
bt 


8 = 110 Ibs‘cubic foot (soil density) 

H = 4 ft. (depth of soil cover) 

f = 0.4 (friction factor) 

D = 0.055 Its‘cubic inch (density of pipe) 


ID = 4.5 — 2.18) = 4.14" 
I= (($.5)* — (4.19)*)(=)/64 = 5.709 in? 
A= (45 — 0.18)(0.18)(=) = 2.443 in? 


_ (1709.521)(0.082) 


Aell = = 0.111 inches 
(4.5)(280) 
(2230.592)(0.082) : 
Atee = ————— = 0.072 inches 
(2)(4.5)(280) 


Calculate all contributions from various forces to the 
total A value: 


_ (56) 
~ (1200) 


Atemp (L) = 0.00130 (L) inches 


(100)(4.14)(L) ( 50.68 (2 \ 
(4)(0.18)(1.24 EE6) 3.20 
= 2.193 EE-4 (L) inches 


Apressure = 


= _ _ (1709.521)(L) 


= A = 0.00056 (L) inches 
ou (2.443)(1.24 EE6) peat i 


= (2230.592)(L) 


4 AP ee = = Tr = 0.00074 (L) inches 
) = beam characteristic = —\o Bi in (2.443)(1.24 EE6) 


(4)(1.24 EE6)(5.709) 


Find the maximum thrust loads on the pipe from all 
internal and external sources to stay within the allow- 
able stress: 


(109)(4.14) 


2009) ~ “0.18) 


= = 1709.521 Ibs = P for elbows 
G5) 


(2)6-709)(0.052) 443) 


(109)(4.14 (2) 
(0.18) \3.20/ * 
(8)(0-052)(5.709) 

(45) 


_ 156) 
(3200) 


| utr’ 


| ms 


(1.24 EE6) | 


= 2230.592 Ibs = P for tees 


Find the maximum allowed deflection of fittings from 
the values of P: 


_ __ @a) 
Africton = OyAyEN) 
F=F=f-w 
W = 2)(We) + (Wp) + (Ww) 
We = (110)(4.5)(4)/(144) = 13.75 Ibs/in 
2We = (2)(13.75) = 27.50 Ibs/in 
Wp = (2.443)(0.065) = 0.159 Ibs/in 
Ww = ((4.14)?(m)/4)(62.4)/1728) = 0.486 Ibs/in 
W = (27.5) + (0.159) + (0.486) = 28.145 Ibsin 
F = (0.4)(28.145) = 11.258 lbs/in 


(11.258)(L2) 


Afriction = (9 443)(1.24 EBS) 


= 1.858 EE-6(L’) inches 


Solve the quadratic equation: 


B-— VB —4AC 


lle: t 
2A (smaller root) 


For both cases (elbows and tees) the “A” values is the 
contribution due to friction 


So: 
A = 1.858 EE-6 


Elbows: C = 0.111 
Tees: C = 0.078 


Elbows: B = (0.00130) + (2.193 EE-4) — (0.00056) 


= 0.00095 
Tees:  B = (0.00130) + (2.193 EE-4) — (0.00074) 
= 0.00078 
t __ (0.00095) ~ V(0.00095) = (4)(1.858 EE-6)(0.111) 
elena) (2)(1.858 EE-6) 


= (0.00078) — V (0.00078) — (4)(1.858 EE-6)(0.078) 


ese (2)(1-858 EE-6) 


= 176.991" = 14.749 ft 


= 136.654" = 11.388 ft 
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Sample Problem 


HP-ICV-2 _ Title 


Program: 


Sample Problem (Sketch if Desired) 


OD = 4,5" 
| 


WALL T = 0.18" 
oo a 


El = 1,240,000 psi 
Ec = 3,200,00 psi 
e= 1.56 in/100' 
PRESS = 100 psi 
KO = 280 #/in 

Sa = 4000 psi 


==—a ANT TRI IR RII ONY 
(a) TEE 
Input Function Display 
E OD= 
45 RIS WALL T= 
oe . RIS El= 
l. RS Ec= 
ea R/S ee 
lL R/S PRESS= 
100 R/S KO- 
280 R/S Sa= 
4000 R/S POISSN= 
68 R/S d.SOIL 
110 R/S COVER= 
‘ R/S FR.FAC= 
A R/S aPIPE= 
065 R/S 90° ELBOW 
SAFE L = 14.749" 
TEE 
SAFE L = 11.387' 


Thrust Blocks for Buried Pipe Fittings 


POISSN = 0.68 
d.SOIL = 115 #/ft3 
COVER = 4' 
FR.FAC = .4 

a PIPE = .065 #/in3 


(b) 90 DEGREE ELBOW 


Comments 


Initializes program, prompts for OD. 

Stores OD in RO1; prompts for WALL T. 
Stores WALL T in R02; prompts for E1 
Stores E1 in R03; prompts for Ec. 

Stores Ec in R04; prompts for e. 

Stores e in ROS; prompts for PRESS. 

Stores PRESS in R06; prompts for KO. 
Stores KO in RO7; prompts for Sa. 

Stores Sa in RO8; prompts for POISSN. 
Stores POISSN in RO9; prompts for d.SOIL. 
Stores d.SOIL in R10; prompts for COVER. 


- Stores COVER in R11; prompts for FR.FAC. 


Stores FR.FAC in R12; prompts for d.PIPE. 

From the values of OD, KO, and Sa the program cal- 
culates the allowable deflection for the tee and the elbow, 
that will allow the fitting to remain under the allowable 
Stress value. 

These values are based on the maxmum load that cane 
allowed (P). Then the program begins to figure the 
contribution to this delta from the thermal expansion 3 
the pressure elongation. These contributions are 
decreased by the friction along the length of the buried 
pipe and by the passive pressure of the soil. If the 


Input 


Function 


Display 


Comments 


friction term is not considered, the equation is a simple linear 
statement. If the friction is considered, the equation becomes a 
quadratic equation. The smallest root is the one that is used. For 
each fitting (tee and elbow), the equation is solved. If the root of 
the quadratic is irrational, this indicates that a thrust block is not 
necessary. Also, if the delta value for either of the fittings is 
negative, this indicates that the buried pipe will be overstressed 
without a thrust block. 


The program then prints the values (or “UNLIMITED” or 
“OVERSTRESSED”) and reinitializes. 


Coding Form 


es O' 
Program Nanibee HP-ICV-2— Tithe Thrust Blocks for Buried Pipe Fittings 
Step! Key Key Comments Step! Key Key Comments Step! Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
4 on: 
ReLBL *RTR* | Initializing routine.| 98 ST* @¢ 99 RCL 83 
OF a recess ee 31 1288 188 + 
SFR cae n rs 52 ST? 05 181 RCL @4 
a “OI meine Sante | SSL @  (Caeulacdtctore| 1027 
janes pha names of the z 
@ ASTO @ data for the input 34 RCL 2 in R17. 183 RCL 69 
@ “kL Ts routine. 32 184 * 
@7 BSTO & 56 + 185 RCL 85 
@ "EI" 3 - 186 RCL @3 
G9 ASTO 83 58 STO 17 167 + 
18 “Een 39 &t2 Calculatemomentof| 188 - 
i1 €370 ef 6B ¥t2 inertia, store in 189 ABS 
12 +e €1 REL 61 RIS. 118 - 
13 ASTO e8 62 xt? 111 8 
1$ “PRESS 63 Xt2 112 + 
13 BSTO & 64 ROY 113 RCL t6 
16 "KD" a5 - iid + 
17 ASTO @7 66 PI 115 RCL 15 
18 “Gar a7 + 116 * 
19 ASTO 88 8 64 117 RCL a1 
28 ~POISSH™ 69 7 118 7 
21 ASTD 69 78 STO 15 119 STO 18 
#2 ~d.S0IL" 7h PY Calculate pipe 126 RCL 88 Maximum allowed 
23 ASTO 18 72 RCL 62 cross-sectional 121 RCL 86 thrust on an elbow | 
24 "COVER" 7 * area, store in R14. 122 RCL 17 is calculated and | 
25 ASTO 11 74 RCL Gt 123 + stored in R19. 
26 “FR.FAC* 75 RCL @2 1244 
27 ASTO 12 7% - 125 7 
23 “d. PIPE" Tt 126 RCL 62 
23 ASTO 13 78 STO 14 127 7 
Sh ls 79 RCL @7 Calculate 128 - 
31 S10 48 88 RCL @t store in R16. 129 RCL @1 
32 FIR 3 81 + 138 4 
S2eLBL A Input routine uses 82 4 131 7 
34 CLA ROO as a pointer 637 132 RCL 15 
35 SF 12 jand:akoountee 84 RCL 63 133 / 
36 ARCL IND 68 857 134 RCL 16 
aT whe" 86 RCL 15 135 / 
38 PROKPT 87 / 136 RCL 14 
39 ACA 88 SORT 137 1% 
46 CF 12 89 SORT 138 - 
41 ACA 99 STO 16 139 7 
42 ani oT) 31 RCL 88 148 STO 19 
43 PREUF 92 RCL 86 141 RCL 18 Fill load on pipe is 
44 156 68 oe Bit a7 142 RCL 11 | calculated and 
45 G10 A 54 + 143 * stored in R20. 
46 ADY Adjust units forE,| 95 2 144 RCL @1 (2 We), #/in. 
47 CLA Ec, and e. 96 / Maximum allowed | 145 * 
48 1 £6 97 RCL 92 -  |thrust ona tee is 146 72 
49 STs 63 98. / calculated and 147 7 


stored in R18. 
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Step! Key Key Cc 
= ‘omment: 
Line Entry Code s _ a Key Comments Step! Key Ke 
148 S10 28 = tne Eny Gide] 
197 try Code 
ms RCL I? Weight of wate 198 a 247 7 b 
50 Mt water is f eae 
isl Pl added to R20, #/in. | 199 CHS ze sy 29 | ated na, 
ee 200 STO 23 ee a 2 a 
‘i L 25 
153 111 ee RCL 19 The thrust term of | 251 / 
1547 2 RCL 14 the value B for tees| 252 ST 
155 ST# 20 203 / is calculated and 253 oh 29 
156 RCL @1 [Weight of pipe 2e4 RCL ag | Stored in HO aa 
157 x12 Weateok ive ls 205 7 ou 18 If friction is 
eg #/in.| 206 CHS XEQ B considered, the 
ae 207 STO 24 256 STO 28 | Peete heol 
168 - 288 RCL 19 Thrust term for Bis ae : iaelcvntadiees 
161 PI 289 7 calculated for alt = , 
ot 718 RCL 1g [elbows and stored 239 STt 27 
ee 211 + in R23. 260 XEQ B 
ie 7 see 25D 
165 RCL 13 214 os [eee 2s = ' aang 
166 * RCL I? is added to the O70 @1 the piping is 
167 STt 26 215 * a term for re G70 1 overstressed. A 
ie — ara 2164 teva of Band ey 
17@ RCL 18 rao. on . ek 260 FO We 
171 RCL 16 (| Maximum allowed | 0 td lie 
be Samy anes a RCL a3 269 GTO 12 and L ee ; ag 
173 RCL @1 is calculated and =a a 
oe eiaeeslin BOD. 992 | 271 STO 29 
eae a pare 2reelel 12 “90° ELBOW” is 
ie zu 2 273 SF 12 printed. 
17 2 226 fl 25 ach 
178 7 297 « = - 
179 STO 22 228 RCL 63 207 — 
Fe “ Maximum allowed 229 + 278 48 
deflection for an 230 RCL 04 279 ACCHR 
182 RCL 18 elbow is calculated] 231 / 280 3 
183 7 and stored in R21. 232 - 28 ; 
184 RCL 19 233 * o ee 
185 + 234 RCL 85 283 . 
186 STO 21 235 + 284 bie 
1 x8? Por Helland dtec| 2o™ STF 285 CLA 
8 SF OL less than zero, flags|_¢3? ST# 25 286 ADV 
189 RCL 22 1 and 2 are set, 238 24 = 287 CF 
198 x<a? respectively. 239 $10 2 oo 4 a ida 
ea sa 7 quadratic equation. 288 RCL 28 not zero, the 
on ar ee _ 289 X#8? program jumps to 
193 2 me friction term ae ST0 26 298 GTO ¢ siti 
3 ‘or the quadrati 2 RCL 1 a 4 
194 7 amen | 4a Ra? ee n a a 
195 RCL 14 calculated and 244 GTO 18 the oa this'a| 293¢LBL 
196 / 9 a in R23. This) 245 RCL 21 linear ae 4 a 294 PI ° tat eet 
is A. : as divide al al bor 
46 REL 24 [ACh AiS divided | 295 xe¥? eos 


Step! Key Key 
Line Entry Code 


Comments 


Step! Key Key Comments Step! Key Key Comments 
Line Entry Code Line Entry Code 
2% ETVE untinited length, | 345 OT °RTR" 
297 RED 21 eertomes | eR “OVER: 
S38 OTA : 34? “OVER™ ae ie is ' 
SOHLAL E "SARE L” is 348 PRA inted, (Thrus' 
BWW ROY printed for elbows.| 349 OLA tock. requires) 
RW! le 358 "STRESSED" 
We 351 PRA 
IRI “SAFE L=* 382 CLA. 
3d ACA 383 ADY 
385 ACR |_ 354 RTH 
WY SSS*LBL 21 “UNLIMITED” is 
38? ACCHR 356 “UNLIMITED | printed. (No thrust 
309 ADV 357 PRA block required.) 
3B9_ANY i 358 CLA 
S1BALBL 18 “TEE” is printed. | 359 ADY 
311 SF 18 368 RTH 
32 CLA S6L4LBL B Solves quadratic 
33 FAT 362 RCL IND 2? ager 
314 ACA BOs Rt culates 
215 “TEE? 364 4 Bt ~ 4AC term. 
316 ACA 365 RCL 23 
U7 PREUF Jes 
38 CLA 36? RCL IND 26 
319 ADV 368 CHS 
320 CF 12 369 * 
AL RCL 29 Azero value means | 379 - 
3B2 RO? the piping is 321 Xda? 
323 G10 C CueReniet 322 610 30 
34 KER 20 373 PI If the term is < 0, 
325 GTO 19 374 RIN return the value 7. 
S26eLAL C Ar value of L SPILBL 38 If the value of 
327 PI means there is no | 376 SQRT B? - 4AC is 
BOB RAV? need fora thrust | 377 pei qyp 27 | positive, solve for 
329 GTO E block. 378 CHS Land return to 
330 XEQ 21 379 + MARY PrOEraM 
31 G10 19 380 2 
332¢LBL.E 381 ¢ 
3B ROY 382 RCL 23 
334 12 383 7 
SH / 384 RTH 
336 “SAFE L=* |SAFE L” for tees | 395 END, 
33? ACA is printed. 
338 ACK 
39 39 
348 ACCHR 
Ml ADY 
342eLBL 19 Return to 
343 ADY initializer, 
344 -ADY 
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Chapter 3 


First Natural Frequency for Three 
Distinct Piping Layouts 


Program TI-59-3 


Introduction: Method: 


TI-59-3 calculates the first natural frequency for three The equations are derived from Design of Piping Systems 
distinct piping layouts: two straight pipe spans with by theM. W. Kellogg Company in the section of vibration 
different end conditions and a two-member bend with control. They are as follows: 

90- or 45-degree elbows. The source of the equation is 
Design of Piping Systems by the M. W. Kellogg Company. 


The analysis includes the weight of the Pipe, the insula- EN = = Br. For Case 1 
tion, the fluid, and, in the case of the straight spans, a L 16P 
concentrated weight. The operating range is 0.25 < a, + W (cps) 
LI/L2 & 1.0. 
1.70 EI 
Nomenclature: <i e For Case 2 
The amount of input varies, but there is a maximum of as a 
ten input items. They are: _ 
OD: Pipe outside diameter (in) a 
T: Pipe wall thickness (in) PR ef BorCase 3 
E: Cold modulus of elasticity (Mega psi) Le Vw 2 See 
P: Concentrated weight (Ib) 
ED: Fluid density (1b/ft*) 
ID: Insulation density (b/ft*) VALUESIOF 6 
IT: Insulation thickness (in) LI/L2 0.25 0.50 0.75 1.00 
Li: For Case 1 and Case 2: The length between ANGL = 90 1.62 1.48 1.33 1.18] Values 
supports (ft) ANGL = 45 1.64 1.58 1.50 1.39] ofa 
For Case 3: The shorter of the two lengths 
(ft) L = Ll + L2, For Cases 1 and 2, L2 is equal to zero. 
L2: For Case 1 and Case 2: Not applicable ii Rae Mellin i 
For Case 3: The longer of the two lengths where 
(ft) EN = Natural frequency in cycles per second 
ANGL: The angle of the elbow (90 or 45 degrees) E = Mo ait _ +; ‘ala city in - 
Four user-keys will be used to execute the program: 1 = Pipe moment of inertia in in? 
=P soht : 
A: Input Ww ipe weight per linear foot 
B: Execute for Cases 1 and 2 
C: Execute for Case 3 TI-59-3 interpolates between any two of the values of & 
E: Initialize in the chart, when doing the calculation for Case 3. 
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Limitations: 


Because the program performs an interpolation be- 
tween to values stored in memory, there are definite 
limits to the range that L1/L2 can have. If the program 
encounters a ratio outside the limits, it will print the 
message “OUT OF RANGE.” The range is 0.25 < L1/ 


L2 < 1.00. TI-59-3 performs only one analysis per set of 
input data. It is self-initializing after the initial run, 
Once the user has run one analysis, the program initial. 
izes itself after printing the value of FN. The program 
does not interpolate for values of ANGL between 45 
and 90 degrees. If ANGL is not 90 degrees, it assumes 
value of 45. For Cases 1 and 2, P may be equal to zero, 


Figure 3.1 First Natural Frequency of Three Pipe Layouts 


CASE |: 
One end clamped, one end simply supported 


CASE 2: 
Both ends clamped 


CASE 3: 
Two-membes lzyout, both ends clamped, vibration perpendicular to layout 
6 may be 90° (2 90° elbow) or 135° (2 45° elbow) 


User Instructions 


Program Number _T/9-3 _ Title First Natural Frequency 
Step Instructions Input Keystroke Display 
1 Road in magnetic cards (3 sides total). CLR 1, 2, or 3 
2 Initinlizo program, E 0 
3 Input OD, OD A OD 
4 Input T. T A T 
S Input B, E A E 
6 InpwrP, Pp A P 
7 Input FD, FD A FD 
8 Input ID, D A ID 
9 Input IT. IT A IT 
10 Input L 1, Ll A Ll 
1. Input 12°, 12 A L2 
12 Input ANGL*. ANGL A ANGL 
13 Choose analysis desired. 
CASES 1 and 2 B 
CASE 3 Cc 
FN 


*These steps are necessary for Case 3 only. 


Data Register Contents 


REGI- REGI- 
STER DATA STER DATA 
(U0 | POINTER 30 1.18 
vl OD 31 1.62 
02 | T | 32 1.48 
03.=«| B 33 1.33 
04 P 34 1.64 values of a 
05 =| FD 35 1.58 
06 |i 36 1.50 
07 «| «IT 37 1.39 
0s =| Li 38 
09 =| L2 39 
Ec ANGL 40 = 
11 ‘| PIPE MOMENT OF INERTIA 41 
12 __| WPI pipe/total WPI 42 
13 | WPI insul. 43 
14 | WPI fluid 44 2702632703 "L1/L2" 
15 |L (L1+L2) 45 3241 "OU" 
16 | FN (1&3) 46 3700322100 "T OF " 
17. | FN(2) — 47 3513312217 "RANGE" 
EI 48 1513361701 "CASEO" 
49 | POINTER: 
POINTER 50 3216 ~ "OD" 
POINTER 51 37 i Na 
52 17 "Ee" alpha labels 
L1/L2 53 “Pp 
54 2116 "FD" 
a 55 | 2416 "ID" 
56 | 2437 i 
57 | 2702 "LI" 
58 | 2703 *E2”" 


13312227 "ANGL" 
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Examples of Analyses 


12.79 


O, SF 


i. a 
300. 
be. 4 
“hth 
4.0 


1a. 


Examples of data that are outside of the range 
of the data stored in memory. 


AHL 
OUT OF RAHGE 


12.75 


0.375 


IT 
Li = ae 
rS 4 ANGL 
ANGL 


DUT OF RANGE 
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Natural Frequency 


OD = 12.75" FD = 62.4 #/ft° 
T = 0.375" ID = 11 #/ft* 
E = 27900000 psi IT = 4.5” 
P = 350 # 


CASES I AND II 


Li = 15' 

(12.75 — .375)(.375)(PI)(12)(.283) = 49.510 #/ft pipe weight 

(12.75 — 2(.375))(PI/576 x 62.4 =49.009 #/ft water weight 

((12.75 + 2(4.5))? — (12.75)2)(PN/576 X 11 = 18.629 #/ft insulation weight 


Total Weight = 117.148 #/ft 
(12.754 — 124)(PI/64 = 279.335 in’ Pipe moment of inertia 


(1.18) | | (27.9BE6)(279.335) 


3 = 35.459 cps 
ue} BO) + 117.148 
(7)(15) 
E70) . (27.9EE6)(279.335) = 49,803 cps 
as) (81850) 137.148 
(3)(15) ; 
CASE III 


Li = 5’; L2 = 16’ 
L1/L2 = 5/16 = 0.313 
For 90° a = 1.62 @ L1/L2 = 0.25 
a = 1.48 @ L1/L2 = 0.50 
Interpolate for a @ L1/L2 = 0.313 .*. « = 1.585 


OL BEG) | OREO SE) — 95 ath ops 
(16 + 5) (117.148) 
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Sample Problem 


TI-59-3 
Program: - 
OD = 12.75" 
T = 0.375" 
.* E = 27.9 psi 
~ P =0 
FD = 62.4 
LL ID = 11 lb/ft 
ss IT = 4.5" 
Os Li. = 5° 
L2 = 16 
ANGL = 90 degrees 
Key 

Step Input Stroke Display Printer Comments 

1 E 0 Initializes program. Zeros out key 
Tegisters, sets the pointer for the 
input routine. 

2 12.75 A 12.75 12.75 OD | Input step. Program stores OD in 
ROI and then prints the value and its 
alpha label. 

3 375 A 0.375 0.375 T Store T in RO2, print. 

4 27.9 A 27.9 27.9 E Store E in RO3, print. 

5 0 A 0. 0. P | Store P in R04, print. 

6 62.4 A 62.4 62.4 FD Store FD in ROS, print. 

7 11 A Ti. ii, ID Store ID in R06, print. 

8 45 A 4.5 4.5 Ir Store IT in RO7, print. 

9 5 A 5. S. Li | Store L1 in RO8, print. 

10 16 A 16. 16. 12 Store L2 in ROS, print. 

Ti 90 A 90. 90. ANGL | Store ANGL in R10, print. 

12 Cc 0. 

CASE3 
LI/L2 
0.31 
29.32 FN Program executes the calculations for 


Case 3, prints the value of L1/L2, 
and then prints the value of FN in 
cps. After printing the natural 
frequency, the program performs the 
initializing automatically. 


Coding Form 
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Program Number ___1-59-3 Tithe SAU Heiney 
Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
Jo9 ry LBL. |Input routine uses | 960 06 6 120 42 $10 
O01 11 A ROO and R49 as 061 95 = 121 29 23 
002 32 X? pointers. 062 49 PRU 122 25 CLR 
003 01 1 063 11 11 123 99 ADY 
Qos 44 SUM 064 43 RCL 124 43 RCL 
ous 49 49 065 1 Ot 125 48 48 
006 69 OP 066 35 + 126 35 + 
00? 20 20 067 O02 2 127 43 RCL 
Qos 735 RC= 064 65 *x 128 22 22 
oog 49 49 069 43 RCL 129 95 = 
010 69 OP 070 37 O7 130 69 OP 
Q11 a4 04 O71 54 > 131 0G 00 
Ol2 32 X? O72 33 x2 132 69 OP 
013 69 OP 073 65 x 13% 02 O02 |CASE # is printed. 
Qi4 06 G6 074 =«§ Tt 134 69 OP 
015 72 STs 075 55 = 135 05 OS 
016 ao a0 076 04 4 _136 69 OP 
O17. 91 RVS 077 75 - 137 00 OO 
018 76 LBL |Subroutine: 078 43 RCL 13% 3 RCL 
aia i7 Bt 079 14 14 139 08 08 
Q20 43 RCL | Calculates Pipe o30 95 = 140 85 + | Total L (L; + L,) is 
Q2i 01 Ot |Moment of Inertia,) 081i 42 STO 141 42 RCL | stored in R15. 
022 33 S®_ |Weight perfoot | 082 14 14 {42 09 09 
23 42 STO | (WPF) of pipe, 033 O01 1 143 95 = 
024 12 12 | fluid, and 024 04 4 144 42 STO 
Q25 42 STO | insulation. o0e5 04 4 145° 15 15 
o2z6 i4 14 086 35 17% 146 92 RTN 
2f 33 Xe O87 49 PRD 147 76 LBL | Natural frequency 
a28 42 STO ogs 12 12 143 16 A" | subroutine. 
G29 ii 14 aaa 49 PRD 149 S55 + 
O30 43 RCL |PipeWPFisinR12.} 050 i3 13 150 43 RCL 
a3 ai a1 095i 49 PRD 151 15 IS 
se FQ = ag2 14 14 152 33 X= 
S3 02 2 Fluid WPF is in as3 a4 4 153 35 1/X |« is supplied by 
as4 65 R13. os¢ 08 8 154 42 STO | the main routine. 
035 43 RCL 095 09 9 155 if i7 
036 2 O82 |Insulation WPF is o96 49 PRD 156 35 1/N 
Os? 34 23 in R14. ag? i2 2 lay 95 = 
O38 33 KE a3s 43 RCL 158 42 STO 
39 ¢2 sTa og9 06 d6 199 16 16 
a¢aq 13 #13 10g. 49 PRD i60 a1 1 
Q41 34 +*- |Moment ofinertia| i01 i4 14 161 93 « 
042 44 SUM jis in R11. 102 43 RCL |Fluid WPF and 162 O07 7 
o43 12 ie 103 05 05 |InsulationWPFare| 163 49 PRD 
044 33 = i104 49 PRD |summedintoRi2for 164 17 17 
045 94 +7- 1as 3. 13 Ja Total WPF. 165) 43 RCL 
046 44 SUM 106 3 RCL 166 11 iif 
ov? 11 14 jor if 18 167 65 xX 
O48 39 4 108@ 85 + 168 42 RCL 
ao4¢9 55 + iog 43 RCL 169 03 ag 
o50 04 4 iia 14 14 17Q' ‘92° EE 
051, 35 = 111 95 = 171 06 6 
a52 49 PRD i1i2- 44 SUM 172 22 INV 
pss A2 12 113 2 12 173 S2 EE 
as4 42 PRD 114 43 ROL i74 95 = 
055 13 13 115 os o8 175 2 S$Ta 
asé 49 PRD i116 95 + |Li/fL2ratioisstored| 176 19 18 
os? i4 14 117 «43 RCL Jin R23. i7Fo Sa + 
ose S59 = iig8 a9 a9 ive 93 ¢ 
aso a1 t 119 95 = 17a 01 ft 


le Ox Ry Comments Lec Code Key Comments Code Key Comments 
ww Cs & S40 93 ROL 32 28 
wi S&S x S1 ay Ss ao a 
IK WR SE BW = 428 $TO 
IW ww 343° 59 INT aa ag 
is a + Ss SS + iv B! 
iw @wt S$9__- SS RCL | This is used for 3 RCL 
LS SS = PEN fee Cases Land] S86 19-18 | Case 3 only. 3a. 30 
LST HQ RL [Sisstoredin IG | SP BF + 16 At 
IW 18 15 sss as 8 $3 ROL 
ISS Sh + gs ag 0 4g 48 th 
wd 4s ROL ssa. 85 = 85 + [CASE 2" Is 
i eC BS S81 $9 STO as 2 |printed. 
Iso > sss sa sa ag = 
2QV 3G =) [EN&Gse25 [| ssy gg + ag oP 
Iw BM oy [send RZ, Sas lol ad ao 
ISS 43 PRD S85 35 = es OF 
IS ls bs S98 8 STO as as 
wT 43 ROL ssrF 31 8 8s OF 
188 28 18 S58 FS RCS as as 
ise Ss = ase sd 20 63 OP 
S00 3S ¢ san 7S - oo aU 
> a 8 S1 Rs a2 é& 
a5 re ReL Qi i | FN for Case 2is 
3 RCL 33 33 3S 3 printed. 
G4 ag a = qi i 
= : 33 ¢ a es 
as 3 sarc ay 04 
a5 + 2a a 43 REL 
+3 RCL ro o- : or 
1S 15 as 2 ge FIs 
=o Se 
+ aad a 02 2 
RCL ae 69 OP 
12 43 RCL dé O06 
> 19 18 22 INV 
= Ga 58 FIN 
Ix 85 xX a8 ADM 
BY PRI aa, 15 _E ___|Initialize. 
Br 17 «17 az 2 76 LBL [Main Control for 
ave we 2 as 6S 1g C Case 3. 
218 ar } Ba 03 3 
220 a 8 55 - 42 STa 
21 01 1 a3. 22 22 
63 OP a2 3 zB 
G4 Of a5 5 33 RCL 
43 RCL 4 68 x 440 4g 
16 (16 289 99 69 OP 
38 FIX 285 73 00 QQ |L1/L2 is printed. 
ce a 2er 2 69 OP 
62 OP 288 a1 1 
a5 ds 289 69 OF 
22 INV 230 as os 
39 FIX 1 a is stored in R25. 59 OF 
38 ADY 2 ao aa 
72 RIN 293 43 RCL 
TS Le 294 28 233 
18 295 58 FIX 
“ 238 Main control for az az 
ba 283 Cases 1 and 2. 39 PRT 
0+ 256 28 INt 
82 299 58 FIN 


Comments | Loe Code Key Comments Loc Code Key| Comments 
420 76 LBL ase for 
421 47 CMS |values of L1/L2 that 
a peng 422 4% RCL are out of range. 
falls outside the | 759 23 2° 
allowed range. 425 4D > 
426 3 RCL 
427 46 46 
428 69 OP 
429 08 03 
430 3 RCL 
a 1 431 47 47 
3f2 7 432 69 OP 
a7 RCL 433 04 D4 
sr4 23 434 98 ADV 
S75 = 435 $9 OP 
S7é INV 436 059 05 
Ste FF GE 427 99 ADY 
3FS 4F CNS 438 25 CLR 
S72 09 9 [IFANGLisnot90°,| 439 15 E 
sso.00 00 go to LOG. ' 
S81 SS NST The following data must be stored in 
388 43 RCL memory and then recorded onto a 
383 10 10 magnetic card (side 3). 
384 6F EQ 
385 29 LOG 
388 a4 4 1.18 30 
38F 61 GTO tsiee ol 
388 23 LNS 1.48 32 
agg Fé LBL 1.33 33 
3900628 LOG 1.18 34 
391 GO a 1.64 35 
392 Fé LBL 1,58 36 
393 23 LNS is S 3? 
394 18 ¢C? 1.99 38 
335 16 At a. 33 
386. 15 £E Initialize. a “ 
38? 76 LBL initiali: . 
See: is ie Program initializer. a. 42 
e320 a0 a oO. 43 
40Q 42 sToO 2ro26327r03 44 
4q1 a4 a4 3241. 45 
$02 42 STO Sroas22100. 46 
403 Q5 as S519912217. fy 
404 42 STO 1513361701. 48 
405 06 08 a 
406 42 STO Q 
407 a? O7 cs 
408 432 STO $2 
403 ag ag 53 
410 $2 STD 4 
411 a9 as gS 
412 42 STD 58 
413 ao ano Sli 
444 O4 4 a8 
415 09 9 39 
416 42 STO 
417 49 49 
418 25 CLR 
419 81 RAS 
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Cases 1 & 2 


Case 3 


Natural Frequency Calculations 


Pipe outside diameter (in) 

Pipe wall thickness (in) 

Cold modulus of elasticity (psi) 
P [concentrated weight (Ibs)] 
Fluid density (Ib/ft5) 

Insulation density (Ib/ft*) 
Insulation thickness (in) 
Length of span (ft) 


Natural frequency (cps) 


Natural frequency (cps) 


Pipe outside diameter (in) 

Pipe wall thickness (in) 

Cold modulus of elasticity (psi) 

P [concentrated weight (Ibs)] 
Insulation density (Ib/ft®) 

Insulation thickness (in) 

Shorter of the two pipe lengths (ft) 
Longer of the two pipe lengths (ft) 
Elbow angle (90 or 45) 


Ratio of short leg to long leg 


Natural frequency (cps) 
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Program HP-41CV-3: First Natural Frequency for Three 
Distinct Piping Layouts 


Introduction: 


HP-41CV-3 calculates the first natural frequency for 
three distinct piping layouts: two straight pipe spans 
with different end conditions and a two member bend 
with 90- or 45-degree elbows. The source of the equa- 
tions is Design of Piping Systems by the M. W. Kellogg 
Company. The analysis includes the weight of the pipe, 
the insulation, the fluid, and, in the case of the straight 
spans, a concentrated weight. The operating range is 
0.25 < L1/L2 = 1.0. 


Nomenclature: 


The amount of input varies, but there is a maximum of 
ten input items. They are: 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 
E: Cold modulus of elasticity (Mega psi) 
P: Concentrated weight (Ib) 
FD: Fluid density (Ib/ft*) 
ID: Insulation density (Ib/ft*) 
IT: Insulation thickness (in) 
L1: For Case 1 and Case 2: The length between 
supports (ft) 
For Case 3: The shorter of the two lengths 
(ft) 
L2: For Case 1 and Case 2: Not applicable 
For Case 3: The longer of the two lengths 
(ft) 
ANGL: The angle of the elbow (90 or 45 degrees) 


Three user-keys will be used to execute the program. 


A: Execute for Cases 1 and 2 
B: Execute for Case 3 
E: Initialize 


Method: 


The equations are derived from Design of Piping Systems 
by the M. W. Kellogg Company in the section on vi- 
bration control. They are as follows: 


EI 


1.18 
FN =—— /——— For Case 1 
L? 4/16P + W (cps) 
a s 
7 cP. 
1.70 EI 
FN = —> For Case 2 
4 8P + W( 
ae S 
SL cps) 
_ o EI 
FN = TE Ww (cps) For Case 3 
VALUES OF a 
LI/L2 0.25 0.50 0.75 1.00 
ANGL = 90 1.62 148 1.33 1.18] Values 
ANGL =45 1.64 1.58 1.50 1.39 | ofa 


L = L1 + L2. For Cases 1 and 2, L2 is equal to zero. 

HP-41CV-3 interpolates between any two of the 
values of in the chart, when doing the calculation for 
Case 3. 


where 


FN = Natural frequency in cycles per second 
E = Modulus of elasticity in psi 
I = Moment of inertia in in? 
W = Pipe weight per linear foot 


Limitations: 


Because the program performs an interpolation be- 
tween two values stored in memory, there are definite 
limits to the range that L1/L2 can have. [f the program 
encounters a ratio outside the limits, it will print the 
message “OUT OF RANGE.” The range of 0.25<LU _ 
L2<1.00. HP-41CV-3 performs only one analysis per set 
of input data. It is self-initializing after the initial run. 
Once the user has run one analysis, the program initial- 
izes itself after printing the value of FN. The program 
does not interpolate for values of ANGL between 45 
and 90 degrees. If ANGL is not 90 degrees, itassumes a 
value of 45. 
For Cases 1 and 2, P may be equal to zero. 
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Figure 3.2 First Natural Frequency for Three Piping Layouts 


CASE 1: 
One end clamped, onc end simply supported 


CASE 2: 
Both ends clamped 


CASE 3: 
Two-member layout, both ends clamped, vibration perpendicular to layout 


0 may be 90° (1 90° elbow) or 135" (a 45° elbow) 
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Keyboard Card Labeling 


eeceas 
S888 


KEYBOARD 


—— ii 
ss 
= —_—s | 
= —_—s— 
=_——_—s—— 


TO: wEWLETT-PACRARD 41C 


SYSTEM 


CONFIGURATION 
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User Instructions 


Program Number _HP-41CV-3 _ Title First Natural Frequency 


TT TTT TTT 


aH OOWAN Bw ay 
2s wf 


aS 


Instructions 


Read in magnetic cards (6 sides). 
Initialize program. 

Choose which case to be anal 
Input OD, 
Input T. 

Input E. 

Input P. 

Input FD. 

Input ID. 

Input IT. 

Input Li. 


Tf Cases 1 and 2 are chosen, the program will shift 
to the analysis. If Case 3 is chosen: 

Input L2. 

Input ANGL. 
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Input 


To tt 


ANGL 


Keystroke 


E 
AorB 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 


R/S 
R/S 


Display 


A OR B 
OD= 
T= 

E= 

P= 

FD= 
ID= 

IT= 

Li= 


L2= 
ANGL= 


output 


Program Number HP-41CV-3 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 


Registers, Flags, Assignments 


DATA REGISTERS 


BEREGVT™ EZ 


ANGL 

Pipe moment of inertia 
WPF pipe/Total WPF 
WPF fluid 

WPF insulation 

L total 

FN for Cases 1 and 3 
EN for Case 2 

EI 

alpha 


First Natural Frequency 


Title 


DATA REGISTERS 


FLAGS 


+ SiC Set Indicates 


Cases 1 and 2 


ASSIGNMENTS 


Function 


Label Key 


11(A) 
12 8) 
15 ) 
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Clear Indicates 


Case 3 


Key 


Examples of data that are outside of the Tange 
of the data stored in memory. 


OD= 12,256 OD= 12.750 
T= 8,375 T= 8.375 
E= 27,980 E= 27.988 
P= 356.06e P= 6,006 
FD= 62.400 FD= 62.486 
ID= 11,020 ID= 11,006 
IT= 4.508 IT= 4.506 
Li= 15.002 Li= 3.600 
L2= 16,000 


CASE 1 ANGL= 96.00@ 


FN 
LiI/7L2= 8.198 
CASE 2 
QUT OF RANGE 


FN= 49,88 


ON= 12.708 
T= 6.375 
E= 27,988 
P= €, 808 
FD= 62.486 
ID= 11.08¢ 


= 4,566 
IT= 4.586 ie nee 
Li= 26.008 
Li= 5.88 L2= 19.066 
L2= 16.086 ANGL= 45.82 


ANGL= 96.0808 


Li/7L2= 0.312 L1i’vL2= 1.852 


OUT OF RANGE 


CASE 3 
FN= 29.32 


OD= 12.75¢ 
T= 0.375 

E= 27.906 

P= 6.68 
FD= 62.480 
ID= 11.068 
IT= 4.506 
L1= 5.608 
L2= 16.006 
ANGL= 45.608 


L17L2= 6.313 


CASE 3 


FN= 30.8: 
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Natural Frequency 


OD = 12.75" FD = 62.4 #/ft* 
~ T= 0.375" ID = 11 #/ft" 
E = 27900000 psi IT = 4.5" 
P = 350 # 


CASES | AND II 

Li = 15’ 

(12.75 — .375)(.375)(P1)(12)(.283) = 49.510 #/ft pipe weight 

(12.75 — 2(.375))?(P1)/576 x 62.4 =49.009 #/ft water weight 

((12.75 + 2(4.5))? — (12.75)*)(PI)/576 x 11 = 18.629 #/ft insulation weight 


Total Weight = 117.148 #/ft 
(12.754 — 124)(Pl)/64 = 279.335 in* Pipe moment of inertia 


(1.18) (27.9EE6)(279.335) 


ase * 4/1650) — 
———_ + 117.148 
(a5) 
(1.70) (27.98E6)(279.335) _ 49.803 cps 
(15) (350) 147.148 
(15) 
CASE Ill 


L1 = 5‘; L2 = 16’ 
L1/L2 = 5/16 = 0.313 
For 90° a = 1.62 @ LI/L2 = 0.25 
a = 1.48 @ LI/L2 = 0.50 
Interpolate for a @ L1/L2 = 0.313 .. « = 1.585 


E.R) consign: 
(16 + 5) (117.148) 


oil 
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Program: 


_HPHICV3 title 


Sample Problem 


First Natural Frequency 


Sample Problem (Sketch if Desired) 


IT= 
Ll= 
L2= 
ANGL= 


LI/L2= 0.313 


FN= 29.32 


OD = 12.75" 
T=0.275" 

E = 27.9EE6 psi 
P=0 


FD = 62.4 Ib/fi3 
ID = 11 Ib/f3 
IT=4,5" 

Li=5' 

L2=16 

ANGL = 90 degrees 


Comments 


Initialize program; prompts for analysis case. 
Choose Case 3; prompts for OD 

Input OD; prompts for T. 

Input T; prompts for E. 

Input E; prompts for P. 

Input P; prompts for FD. 

Input FD; prompts for ID. 

Input ID; prompts for IT. 

Input IT; prompts for L1. 

Input L1; prompts for L2. 

Input L2; prompts for ANGL. 

Input ANGL,; program shifts to analysis. 
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Coding Form 


ck Number HP-41CV-3 Title First Natural Frequency 
tep ey Key Comments Step! Ke 
Line Entry Code ite: ad bad Remminents orl Key Key Comments 
BICLBL "HF" | Initializing routine | 59 x 5 ne Entry. iCode 
82 CF A! stores alpha labels EQ 18 ets counter Rjy, 99 30 Sets pointers R20 
83 CLRG and values for a. 514 oe aii 166 + and R21 for 
a4 -OD=" 52 $10 63 | subroutines. 11 $10 25 _| interpolation 
95 ASTO 61 53 EO B 162 COU 
6 °T=" 54 RCL 38 193 + 
@7 ASTO 62 e aD A 164 STO 21 
ap «cee 5 105 RCL 23 Interpolati 
89 ASTO 03 7 ia 105 RCL 28 route: = 
10 "P=" Baronet “KF 107 38 inds value of a 
IF pero 06 (iyPCinter Roo for ’S90LBL “ACT [CaseSmain control] 188 > from between two 
12 “FD=* 68 CLA sets pointer Ri, | 189 RCL 19 BESH EMORY: 
13 ASTO @5 61 18 goes to input 113 - 
14 °ID=" 62 STO 11 youbne: 111 .25 
15 ASTO 66 63 EQ 16 112 * 
16 "IT=" 64 XEO B 113 - 
17 ASTO 07 65 ADV 114 25 
18 “Li=" 66 “LI/L2=" Prints value of N57 
19 ASTO 68 67 SF 12 LUL2. 116 RCL IND 26 
26 “L2=" 68 ACA 117 RCL IHD 21 
21 ASTO a9 69 CF 12 113 - 
22 “ANGL=" 70 REL 23 119 + 
23 ASTO 16 71 ACK 120 RCL IND 26 
24 1.18 22 PRBUF 121 KOY 
25 STO 36 73 CLA Tests to see if L/L2 |_122 - 
26 STO 34 74 ADY is within the range 123 HEQ A Executes natural 
2? 1.62 75 .25 of the analysis. 124 Aly frequency routine 
28 810 31 76 XY? 125 AY and initializes. 
29 1.48 77 GTO 28 126 CTO “HF 
24 STO 32 78 CLE 127eLBL 16 Input routine. Uses 
31 1.33 791 128 FIX 3 ROO as a pointer 
32 S10 33 86 ROY 129 SF 12 and R11 as a 
33 1.64 81 XY? 130 CLA Sounter: 
34 STO 35 82 GTO 20 131 ARCL IND 68 
35 1.58 $3 96 TabaNGLbex| et 
36 STO 36 84 RCL 18 if it is equal to 90. | 133 ACA 
37 1.5 85 X=¥? 134 CF 12 
38 S10 37 86 GTO 30 135 ACK 
39 1.39 87 4 136 STO IHD 88 
46 STO 38 88 GTO 35 137 PRBUF 
411 Q9+LBL 30 138 1 
42 STO 08 98 8 139 ST+ a8 
43 “A OR B" Prompts user for O{*LBL 35 148 CLE 
44 PROKPT analysis. 92 S10 19 141 SE 11 
45eLBL “AB Case 1 and Case 2 93 REL 23 142 GTO 16 
46 CLA main control. 94 4 143 RTH 
a7 8 95 + 144¢LBL B Calculates pipe 
48 STO 1! 96. IHT 145 RCL 61 moment of inertia, 
49 SF 8 97 RCL 19 ee Coa allem 
one 147 STO 12 P), 
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Step} Key Key Comments Stop! Key Key Comments Step} Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 

148 STO 1 insulation WPR, | 197 ROL 08 If Cases Land 2go} 246 ¢ 

149 X49 and Auid WP, 198 FS? Ot to 11. 247 RCL 12 

150 STL ARENPEISIN R12.) 199 GTO AL 248 + 

1S1 RCL 1 in RIA i 208 RCL 8 Calculate L1/L2. 249 7 

152 ROL a2 Fluid WPF is in 201 RCL 09 258 SQRT 

153 2 R13. 202 7 251 ST* 17 

154 3 Moment of Inertia | 993 st) 23 252 FC? Ol 

155 ~ satin QOH0LBL 11 |Listhe total of | 253 GTO 12 _ 
156 Xt2 205 RCL 88 L1 + L2. 254 CLA 

187 $0 13 206 ROL a9 | Forcases Land 2) 955 any 

158 ST- 12 207 + a 256 “CASE 1* 

159 Xt2 208 STO 15 25? SF 12 

16@ ST- 11 209 RIN 258 ACA Print values of FN 
161 Pl 218eLBL A Natural frequency | 259 PRBUF for Cases 1 and 2. 
162 4 2iL STO 48 routine: 260 “FN=" 

163 ¢ 212 RCL 15 261 ACA 

164 ST# 12 213 Xt2 262 CF 12 

165 ST# 13 2i47 263 FIX 2 

166 ST# 14 215 STO 16 FN for Cases land] 264 RCL 16 

167 16 216 1.7 BisinRI6. | _265 ACK 

168 7 M7 RCL 15 EN for Case 2°is in 266 ADY 

169 STe 11 218 xt2 —_— 267 ADV 

178 RCL 91 219 ; 268 “CASE 2° 

171 RCL 67 228 S10 17 269 SF 12 

172 2 221 RCL 11 278 ACA 

173 * 222 RCL 83 271 PRBUF 

124 + 223 + 272 ADV 

175 Xt2 pl 1 E6 273 °FHE" 

176 PI :: acA 

177 226 STO 18 = CF 12 

178 4 eet 16 276 RCL 1? 

179.7 228 RCL 04 277 ACK 

188 RCL 14 229 + 278 Aly 

181 - cog 279 RTH 

182 $70 14 ae 2864LBL 12 | Print value of FN 
183 144 Change weight per 281 CLA for Case 3. 
184 STv 12 inch to weight-per-| 233 / 292 “CASE 3° 

186 ST/ 14 235 + 284 ACA 

187 489 Steel pipe factor. 236 / 285 PRBUF 

188 ST# 12 237 SORT 986 ADV 

189 RCL 66 Complete WPF 238 ST# 16 997 “FH=* 

198 ST# 14 calculations. 239 RCL 18 998 ACA 

191 RCL @5 246 8 989 CF 12 

192 ST# 13 241 RCL 64 999 FIX 2 

193 RCL 13 Sum all WPFs into] 242 * 291 RCL 16 

194 RCL 14 Ri2foratotal WPF.| 243 3 292 ACK 

195 + ote 293 ADV 

—— — 
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Step) Key Key 
Linc Entry Code 


Comments 


Step! Key Key 
Line Entry Code 


Comments 


Step/ 
Line 


Key Key 
Entry Code 


Comments 


2950LBL 20 
296 “OUT OF 
RANGE* 

297 PRA 

298 ADY 

299 GTO “HE 
300 EMD, 


Prints “OUT 
OF RANGE” 
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Chapter 4 


Flexibility Factors, Virtual Lengths, 
and Intensification Factors 


Program TI-59-4 


Introduction: 


TI-59-4 determines the stress intensification factors, vir- 
tual length, and flexibility factors for elbows, bends, 
and closely spaced miters and the intensification factors 
for welding tees, reinforced and unreinforced stub-ins, 
and weldolets. It will also calculate the required pad 
thickness to obtain the input value of the outplane 
intensification factor for a reinforced stub-in. In all 


cases, the outplane and inplane intensification factors 
are calculated. 


Nomenclature: 


The input consists of the following pieces of data. Those 
marked with an asterisk are required only for elbows, 
bends, and miters. 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 
R: Bend radius for elbow/miter (in) 
*P: Internal pressure (psi) 
*E: Cold modulus of elasticity (Mega psi) 
I: Outplane stress intensification factor 
(for desired pad thickness analysis) 


The output varies from one analysis to another. The 
notations are: 


Flexibility factor 

Elbow/miter virtual length (ft) 

Outplane stress intensification factor 
Inplane stress intensification factor 

Pad thickness (for desired pad thickness 
analysis) (in) 


K 
Vi: 
10: 
I: 
PT 


Method: 


All equations are taken from Appendix D of ANSI 
B31.3, 1980. Virtual length is the flexibility factor multi- 
plied by the bend radius through a 90-degree arc. The 
stress intensification factors are always the inplane and 
the outplane factors. The desired pad thickness analysis 


simply reverses the equations for stress intensification ~ 
factor. 


Limitations: 


TI-59-4 does not test the pad thicknesses calculated 
against any restrictions set forth in the Code, either 
when calculating the desired pad thickness or the 
stress intensification factor. Virtual length is always 
calculated for a 90-degree arc. The program does not 
analyze flanged elbows. The printed value for intensifi- 
cation factor will never be less than 1.0. 
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Program Number _TLS9A _ Title __Flexibility Factors 


Step 


WAU hWwmH 


User Instructions 


Instructions Input 


Read magnetic cards, 

Input OD, 

Input T. _ 
Input R. R 
Taput PT. PT 
Input P (elbows and miters only). 

Input E (elbows and miters only). B 


For deriving pad thickness for an input value of IO: 
Same input as above except: Desired IO 


Elbow analysis 

Miter analysis 

Tee analysis 

Unreinforced stub-in analysis 
Reinforced stub-in analysis 
Weldolet analysis 


Pad thickness analysis 
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ADANhWNS 


Display 


1) 


K, VL, 10 &y 
K, VL, 10 eq 
10O&ll 
IO&ll 
1O&ll 
1O&ll 


T 


a)(b) 


(a) 


(b) 


@) 


Source Documentation 


ASME CODE FOR PRESSURE PIPING 
CHEMICAL PLANT AND PETROLEUM REFINERY PIPING 


APPENDIX D 


TABLE 1 


ANSI/ASME B31.3-1980 EDITION 
APPENDIX D 


FLEXIBILITY AND STRESS INTENSIFICATION FACTORS 


FLEXIBILITY FACTOR k AND 8TRESS INTENSIFICATION FACTOR / 


Welding elbow 1+2.3,6.9 
or pipe bend 


Closely spaced 
miter bend 1.2,3 
s <r, (1+cn8) 


Single miter bend! 2 or 
widely spaced miter bend 


s > 1, (1+tan 6) 


Welding tee1.2.6 

per ANSI B16.9 with 
rx > U8 Dy 
Te 21ST 


Reinforced fabricated!.2,5 
tee with pad or 
saddle 


Unreinforced 1-2 
fabricated tee 


Extruded !.2 
welding tee 


?_ > 0.05D, 
T. <1.5T 


Welded-in 1-2 

contour msert 
fg > 118 Dp 
Te ol ST 


Branch !-2.7 welded- 
on fitting 
(integrally 
reinforced) 


Flexibility 


Stress int, Factor! 8 


34 ig + 114 


Whig + 14 


34 ig + M4 


Wig t Ws 


34igt 14 


Flexibility 
Characteristic 


(F+47)? 
TT, 
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ASNE CODE ROR FRESSURE PIPING ANSI)ASME B31.3-1980 EDITION 
CSEMWICU. PLANT AND PETROLEUN REFINERY PIRING APPENDIX D 


APPENDIX D 


TABLE 2 (CONT) 
FLDUBILITY FACTOR &£ AND STRESS FACTOR/ 


Po a 

oN Pr] FOR ELBOWS bess 
= “T = ITY & 

oT L Z FOR MITERS &=).E2m** 
ES ES STRESS WTEMSEICAT Om 
- 
BS S71 sass wntensincarions 
/~ 
3> oN N Sd 
= aS XT = 
fe ANI | 
B LTNATENAC 
So yt Bee We 
FCO NN 

wl in SI 

i] IERaNSN 
es 7 
£ onled TMT CL 
Sass} 1 8D gen’? 
E ont +} 2 ens PLANE cant? 
i fz Gan as bn OS Gre we 

wOTsS COMRACTERISTIO 


"The Semmatty fact: b & See nbs apps to bending i> any phe The Meriility factons FE and eves imensfication faction 
é geet oot be lem ther ey; fate for tone equal city. Both faction apply over the effective are length (shown hy beary 
(eter Beers de the rth) for Corvad’and miter bends, 2nd tn the inteuection point for tex. 

The wakes Of Sad | a be eet Geet fren: Ghat: AL by emeing with the chamectmistic h compute’ fram the formuhs 
eee aber. Romer: 4 foie 


T= (ee pow st nite beet Gee eal weal the of the firing 
= for ee Ge) el) ie of Ge ate 


T= Sect Sie AR, = bendindio of welding chow or pipe bend 
Y= ped oe et Sc 7, = we definition in 304.3.6(c) 

2 ce? ek ee oe 2 | miter ot eine 

y= Se ar ee D,> O.D. ofbranch 


Wee Aer ae et oe oo eth ek, he athe of E ant / im the The al] be comecied hy the facion C, , which 
oe Db vet ee from Qn BY, eee ett: the eure A 

a 

"Whe Tis > > WAT, mek =e 


The dese: in Sete Get Se Soy week fitting may have comidimably beovier walls than thatof the pipe with which 
tq eet) Le ee ey be eh ee the efet of thee grees thickness is comiders 


“The deg erent fe ee! Sr Se Setriatiee bee & preeee mating equivaicut tn onmight pipe 

Og sgh fereeeRicatioe Facer peal te 5 sey fae elf bench fom f, desired 
Ye bere Sheree fen) Phere eed Se, preecor an agnifeoty afin the megnimde of & endif, To-compct values from 
te Tehke 


warm f-<()G)* A] cee fogs 
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Examples of Analyses 


.620U 
32270 


e vce 


2. 0000 


3220 


100. aaou ; Reinforced 
2Faa0aaa,. oo. | pint 


Weldolet 


1aa,. a00a 
2Fraaouadad. aa 


WwMwow 


a. 322 


2. 4048 
2.4048 


§. 6250 
Q. 3220 
12.0000 Unreinforced 
0. 3220 


4. 9485 
3.9614 
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Kand | Factors 


OD = 8.625" PT = 0,322" to = (8.625 — .322)/2 = 4.1515 
T = 0.322" P = 100psi 
Elbow R= 12" BE = 27.9EE6 
K = 1.65/h 
TR (0.322)(12 
h=—= (0.922)(12) = 0.2242 


~(e) (4.1515)? 
K = 1.65/0.2242 = 7.3596 


1 inplane = 0.9/h” = (0.9/(0.2242) = 2.4387 


Pressure Modifiers: 


P *(R\% 100 4.1515\*/ 12 \% 
divide K by | 1 +6 (z) (2] =) fe 1+6[ ) ( 2 | ( ) = 1.0119 
Ec} \t} \n 27.9EE6 / \ 0.322 4.1515 


ioadetiy (uxeenl2-| (VE 143.25 ( an ) (38) "( = : = 
ieee Rey katy aot | © \ 57 9pn6 / \"0.322) \415i5) | ~ ‘ol 


K = 7.3596/1.0119 = 7.2728 


Ti = 2.4387/1.0141 = 2.4048; Io = (.75)/h® = 2.004 
a/ 12 
VL = =(2) 7.2728 = 11.4241 
2\12 
Closely Spaced Miter 
K = 1.5% 


_COTe Ts (COTAs) _ 


R..h= —\ same as elbow 
2 QR Z Ly 


h = 0.2242 
K = 1.52/(.2242)% = 5.2843 
lo = Ii = (.9)h® = (.9).2242)" = 2.4387 


K and I adjusters are the same as for the elbow 
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K = 5.2843/1.0119 = 5.2220 


I = 2.4387/1.0141 = 2.4048 


w= 2(2)s2220 = acs 
~ 2\12)~° ee 


Tee 


lo = (.9/h); i = (3/4)(1,) + 0.25 


44T 4.4(0. 
fe ee a AOS 22) 0.3413 

Iz 4.1515 
Jo = (.9)(0.3413)” = 1.8429; li = 1.632 
Stub-in 


Io = (.9)/h*: Ii = (3/4)(Io) + 0.25 


h = Tir, = 0.322/4.1515 = .0776 


Io = (.9/(0.776)% = 4.9485; li = 3.961 
Stub-in with pad 
To = (.9Vh™; li = (3/4)(1.) + 0.25 


_ (C+ Hy (0.322) + 4.322] 
a (T”)r (0.322)*(4.1515) eee 


Io = (.9)(.2137)” = 2.5176; li = 2.138 
Weldolet 
Io = (.9)h*: Ti = Io 


p= 237 _ 3:3(0.322) 


= 0.2560 
50) 4.1515 


lo = (.9/(0.2560)% = 2.2325; li = 2.2325 
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Sample Problem 


Program: = 
OD = 8.625” 
T = 0.322" 
R = 12" 
P = 100 psig 
E = 27.9 EE6 psi 
Key 
Step Input Stroke Display Printer Comments 
1 8.625 STO 01 8.265 User stores OD in RO1. 
2 322 STO 02 0.322 User stores T in RO2. 
3 12 STO 03 12. User stores R in RO3. 
4 100 STO 05 100. User stores P in ROS. 
5 27900000 STO 06 27900000. User stores E in RO6. 
6 A 8.6250 OD | The program calculates the 
0.3220 T flexibility characteristic h and 
12.0000 R | stores itin RO9. The mean 
0.0000 PT | radius is stored in RO8. From h, 
100.0000 P the inplane stress intensification 
27900000.00 EE | factor and the flexibility factor are 
calculated and stored in R11 and 
7.2828 K | R10, respectively. The K and I 
11.4241 VL | “modifiers” are calculated, and the 
values are used to adjust the earlier 
2.0040 IO | calculated values. The virtual length 
2.4048 II | is calculated and stored in R12. The 


input and output data are printed. 
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Data Register Contents 


REGI- 
DATA STER DATA 


HW 


41 
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ee 
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wo yu 
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Coding Form 


TIS9A Title Flexibility Factors 


Program Number 


Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
atu 5 CLe Clear and stop, asd as oe 20 Qa fal 
a2) ES Csi 38 x8 121 03 3 
WSs LBL [Print subroutine | 082 95 = 122 17 BY [Print “P.” 
aha 1 B* [Prints data with = Loss as eT 28 439 ROL 
ts 7 alpha fags. Do¥ 7S LAL | Main print 24 06 06 
ae Xs ast O8s 16 A" subroutine: eo G2 NIT 
USS 88 ADM | uses B’, 26 OL 1 
Qe? 48 RCL er of Ff op a 
d68 11 11 ge i7 et [Print "E 
O64 71 SBR 12998 ADV 
Checks input value} UFO 8d TAN 30 43 ROL 
against unity, and | (71 482 STO 3i iq 10a 
returns the greater] (7S 11 11 132 32 NIT 
value, QF3 $2 RCL |TestlO and for | 198 G2 = 
UP} 15 15 |valueslessthani,| 134 06 © aueri 
OFS 71 SBR 35 17 Bt [Print “K. 
avé 30 TA 36 43 RCL 
ar? 42 STO er ip ie 
u78 15° #145 198 32 XIT 
ore 35 CLR iso 04 4 
Calculates mean aso se FIN 40 ae 2 
radius, O8l o4 ad 41 ae 2 
aqsg2 4a RCL 42 a7 7 
ass at at 48 17 B* [Print “VL.” 
US4 SE NIT 144 76 LBL 
ags s 3g 145 23 LNA 
OSs as & 146 98 ADM 
os? a1 1 47 43 ROL 
ase ae 8 48 ii ti 
Se LT BY [Print “OD.” 49° 32 NIT 
ago 43 RCL iso G2 2 
ast of 02 iSi 04 4 
og2 92 NIT S200 0 
a3 a 3 153 01 1 
Calculates | gay os > i5s4 i7 6° |print “10.” 
fae for branch aes ir 8° {print “T”, 1585 43 RCL 
pe +, [eonnections. 038 87 IFF |Ifanalysisisfor | 196 15 15 
aaM Es Qa? a2 U8 |desired pad 1S? 32 NIT 
uss = C98 28 LOG |thickness, go to igs 02 2 
40 cL O99 3 RCL |LOG, 159 a4 4 
O44 ii te ag er i - a Print “11.” 
eA j Si XN 16 : 
a3 iof 03 3 62 17 Bt 
ae 03 05 5 163 22 INV 
ass 104 1% B {Print “R”’, 164. 58 FIN 
be as 48 ROL 1865S) RST [Reset. 
(a7 106 o4 OS 166 Fa LBL |Calculate IO. 
es 33 1p 32 IT 16? 78 34 
3476 CEL [Calculates h for fa ba 8 ae BA a 
50 “0 Rk elbows and miters. 110 a3 3 70 45 yx. 
oS ae lit oF F 1? 
oe) 112 12 es [Print “PT.” i72 93 
a> 02 113 22 IN\ |If the analysis is ive 05 4§ 
: = 114 9&7 FF [fora branch 174 35 Le 
5 13 PCL 115 O01 { Jeonnection go to wo SD & 
E> gs {6 23 LNS |LNX, To 93 4 
was sh = Li?) 43 RCL ifr O98 9 
O55 33 RCL 118 05 O58 {Fe 98 = 
119 2 NET 179 35 1eN 
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Comments 


Comments 


Comments 


DOM 


Rn 
oT 


MKEROKAGN" G+e 


vA 
rc 


Adjust K, IO, and 
II for pressure. 


Calculate VL. 


x BP + 


wz 


fi 
c 
fi 


or 


wo 
me —t il 
Lo 


es 
Awa 


1107 


Oo 


oa 


ee es 


or 
oi 


on eb, 


ey 


Hoe 


ca) 
1 
3 
6 
ha) 


a 
a 
Q 
a 
a 


PIT fo To fo 


OO 0 6 0 
0 60 “J Ov 


Elbow analysis. 


=p 


Je 


DO Ome ap tale 


1 


~~! 
£ 


*|O. oe ae 


Miter analysis. 


t 
-~M mM] -niag 


Ae Te rdf er 


Co Be ONNeOhU Woo 


OD 


oD 


JIN 


Tee analysis. 


a 


09 Go 62/09 69 69 09 09 9 Ooo 


oon onien on on 
DO 03 -JIG- On fe 
Hr Ne op 


wt 


LEL |Unreinforced 
D__ |stub-in analysis. 


Comments Loc Code Key | Comments Loc Code Key Comments 
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mand Ul Btwfhu— 


oO 
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00 CO OIG 


9G) 09 03 G9 OO) 6) OD 


‘O00 OD 4 


WWW OOG 


120 643 RCL 
421 068 08 
422 65° % 
423 43 RCL 
424 02 02 
425 45 x 
425 O1 1 
427 93 (Cw 
428 95 5 
423 95 = 
Reinforced stub-in. | 430 22 INV 
431 45 YX 
432 az 2 
483 92 «4 
434 05 5 
439 75 = 
436 43 RCL 
487 02 02 
438 54) 
439 65 xX 
440 2 2 
444 95 = 
442 42 STO 
443 16 16 
444 16 At 


QOBeE OMe Ne OAS 
NAAR WOORBOAM He a 


ag 
ee 


PPLAPAD 


meee 


' 
WON DUP WD! 


447 3 RCL 
448 04 O4 
449° 32 KIT 
450 a2 2 
451 Qa 4 
452 17 Bt 
453 & ADY 
454 43 RCL 
455 16 16 
456 32 “IT 
457 03 3 
433 3 3 
459 3.3 
460 OF 7 
Calculate required | agi 17 B? 
pad thickness 462 81 RST 
given IO. 463 76 LBL |Weldolet analysis. 
464 18 C? 
465 19 D* 
466 55 + 
467 $ RCL 
468 02 2 
469 S35 + 
470 03 3 
Arl 93 « 
472 O83 3 
473 95 = 
474 35 17K 
475 71 SER 
476 79 Et 
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Program HP-41CV-4: Flexibility Factors, Virtual Lengths, 
and Intensification Factors 


Introduction: 


HP-41CV-4 determines the stress intensification fac- 
lors, virtual length, and flexibility factors for elbows, 
bends and closely spaced miters and the intensification 
factors for welding tees, reinforced and unreinforced 
stub-ins, and weldolets, It will also calculate the re- 
quired pad thickness to obtain the input value of the 
outplane intensification factor for a reinforced stub-in. 
In all cases, the outplane and inplane intensification 
factors are calculated. 


Nomenclature: 


The input consists of the following pieces of data. Those 
marked with an asterisk are required only for elbows, 
bends, and miters. 


OD: Pipe outside diameter (in) 


T: Pipe wall thickness (in) 

R: Bend radius for elbow/miter (in) 

*P: Internal pressure (psi) 

*E: Cold modulus of elasticity (Mega psi) 
Io: Outplane stress intensification factor 


(for desired pad thickness analysis) 


The output varies from one analysis to another. The 
notations are: 


K: Flexibility factor 
Lv: Elbow/miter virtual length (ft) 
Io: Outplane stress intensification factor 
li: Inplane stress intensification factor 
PAD: Pad thickness (for desired pad thickness 


analysis) (in) 


Method: 


All equations are taken from Appendix D of ANSI 
B31.3, 1980. Virtual length is the flexibility factor multi- 
plied by the bend radius through a 90-degree arc. The 
stress intensification factors are always the inplane and 
the outplane factors. The desired pad thickness analysis 
simply reverses the equations for the stress intensifica- 
tion factor. 


Limitations: 

HP-41CV-4 does not test the pad thicknesses calculated 
against any restrictions set forth in the Code, either 
when calculating the desired pad thickness or the stress 
intensification factor. Virtual length is always calcu- 
lated for a 90-degree arc. The program does not analyze 
flanged elbows. The printed value for intensification 
factor will never be less than 1.0. 
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Keyboard Card Labeling 


aeeqge 
===)=|— 


SHIFT 


S888 


KEYBOARD 


——i i 
i 


SYSTEM 


CONFIGURATION (4 


Program Number _HP-41CV-4 


Step 


UvAbwn- 


WhUWUN- 


— 


_ 


_ 


wn 


User Instructions 


Title _Flexibility Factors 


Instructions Input 
Elbow Analysis 
Input OD. 
Input T. 
Input R. 
Input P. 
Input BE. 


D 


muyuPHO 


Miter Analysis 
Input OD. 

Input T. 

Input R. 

Input P. 

Input E. 


mMUAHAO 


Tee Analysis 
Input OD. OD 
Input T. T 


Stub-in Analysis 
Input D. OD 
Input T. T 


Reinforced Stub-in Analysis 


Input OD. OD 
Input T. T 
Input PAD. PAD 


Weldolet Analysis 
Input OD. OD 
Input T. T 


Required Pad Analysis 


Input OD. OD 
Input T. ; 
Input Io. 0 
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Keystroke 
A 
R/S 
R/S 
R/S 
R/S 
R/S 


Program Number _HP-41CV4 


Registers, Flags, Assignments 


DATA REGISTERS 


0) 

T 

R 

PAD or req’d 


Title 


Flexibility Factors 

39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

Init 
# 
Label Key 
AA 11(A) 
BB 12(B) 
cc 13(C) 
DD 14(D) 
EE 15() 
SC -13(C) 
SE -15(E) 
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DATA REGISTERS 


FLAGS 


Set Indicates 


ASSIGNMENTS 
Function 


ay(b) 


@® 


b) 


(b) 


Source Documentation 


ASME CODE FOR PRESSURE PIPING ANSI/ASME B31.3-1980 EDITION 
CHEMICAL PLANT AND PETROLEUM REFINERY PIPING APPENDIX D 
APPENDIX D 
FLEXIBILITY AND STRESS INTENSIFICATION FACTORS 
TABLE 1 


FLEXIBILITY FACTOR k AND STRESS INTENSIFICATION FACTOR / 


Flexibility 
Charecteristic 


Sketch 


h 
Tr 
Welding elbow 1,2,3,6,9 TR, a 
or pipe bend oe 72 
LS, Ry = bend 
redius 
ca 
Closely spaced ~ n> eat 
miter bend 1.2,3 a Eo ae gS 2 
i 2 (3) ipo 
a <r, (1) +tané) x =f coté 
‘ 6 sas laa 
Single miter bend! +? or 
widely spaced miter bend 


5 2 1, (1+tan 6) 


Welding tee! .2,6 
per ANS] B16.9 with 

ty > U8 Dy 

T; >15T 


3/4 ig + V4 


ro 


Reinforced fabricated!.2,5 
tee with pad or 
saddle 


(T+47,)""2 


wa 
Pare, 


M4 ig + 114 


Unreinforced 12 
fabricated tee 


Aig +114 


Extruded 1-2 
welding tee 


Ty > 0.05D, 
T, <1.5T 


Whig + WA 


Welded-in 1s? 
contour insert 

fz >1/8Dp 

Te >1.5ST 


Maint Va 


Branch! 2.7 welded- 
on fitting 

(integrally 

reinforced) 
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ASME COOE FOW FRESSUWE PIPING 


CHEMICAL PLANT AND PETAOLEUM REFINERY PIPING aii calm iis Secntie ng 
APPENDIX D 
TABLE 1 (CONT.) 
FLEXIBILITY FACTOR & AND GTREES INTENDIFICATION FACTOR / 


fire 
Hones , 


oe 


ool NJ FOR ELaOwS b= 
= BB FUNOLITY recto 
Set I SNgct eee 
= 30 BTRESS mete g: 
re weed exch Marge ay x TRACTOR 0 O11" alll 
S STROSS mMTOMT 7 
Ey al FACTOR to Fame 
Be oN 
s& SR 
13 gz ° 
ws © 
Ley p= fire wth mo 
AS BIW § len peo me! o. ¢ 
Ea PL 
reed “ 
ee ice 
5 25 . 
o eel 
« a 
o 
© ack | beer) 
BO FLANGED 
a ine 
5 ozs = a 


= Seam on nfo Gos SU 7 
KOTES: CHARACTERS h 


S The fexiiziry factor k fm the table apps to bending in any phe The Mexibifity fecine F and snes imenoficotioe fom 
(@e0 sx be es the wef, feo for ios equal mory_ Both foo apply over the efiective ac ength (shown by bay 
see Es i tr she) fo aed ad mine beads, aod to the inten pot for te 


OTe wate of E ed | co be eet drely from Chrt A, by tetine with the Gmecterntic & ompord from the foros 
eco ere. Rosectoor #  fnlicer 
J = fe ecm 2! oo beak the poe wall thickness of the firing 

= fo = Ge sooo wall thc of the moching pipe 
Tos tees Ses of 


#,= bend midis of weliiing chow of pipe bead 


Yo mle et tc ry, = w= definition in 304 3A(c) 
@ © cb og’ bow sit a oo & © miter spscne of emeniine 
fr, © menos of eo pe D,= OD. of bmach 


Phe feeges er ects mo oe o&& both ents, the values of & and / in the Table shall be comma hy the facum C, , which 
oe be eet Seth from Chet 8 eeing with the computed & 


“Feces shown ely wo beniing Flecihifiry facor for moon equals 0:9. 

wins F, o> 4T, men a4 

“The dene Bit thot cat bor welded firings may have comodesbly heavier walls then thafof the pipe with which 
ep we wet Dep on gg be eroded oles the effect of thee greeter thickneoes bb conedered 

"The Gentes ort be wetirfier! thet this fabocetion has a prewure rating oquivalent to stright pipe. 

A siege ieee fac equal on 0.9/8 eray be med forboth /; and, if Acsired. 
ee ee ee 


on OO BY came Pog 
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ELBOW 


0D=8.625 
T=8. 322 
R=12.680 
P=186. 888 
E=27. 960 


K=7.273 
Lu=11.424 
1i=2.485 
10=2.884 


MITER 


OD=8.625 
T=8.322 
R=12.960 
P=180.80e 
E=27.988 


K=52222 

Lu=8.283 
1i=2.485 
To=2.485 


TEE 
OD=8. 625 
T=8.322 


1i=1.632 
To=1.843 


Examples of Analyses 
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STUB-IN 


OB 8.625 
174.322 


Ti=3. 961 
104.949 


RE. PAD 
OB=8. 625 
1=0.322 

PAB=O. 322 


112.138 
10=2.518 


WELDOLET 


0D=8.625 
T=0, 322 


11=2.233 
1o=2.232 


REQ@,.D PAD 
0B=8.625 


120.322 
102.518 


PABO.322 


K and | Factors 


OD = 8.625" PT = 0.322" T2 = (8.625 — .322)/2 = 4.1515 
T = 0.322" P = 100psi 
Ellow R = 12" E = 27.9EE6 


kK = 1.65/h 


_ TR _032)02) 
"@® Gis 


K = 1.65/0.2242 = 7.3596 


1 inplane = 0.9/h = (0.9/(0.2242) = 2.4387 
Pressure Modifiers: 


Pe ee ( (2)"(2 % +6 (2% ) (<5 )*( 12 a ‘iia 
Vv , _ _ _- = 7 = hs 
sone Bel hts 6 o7.9EB6 } \ 0.322) \4.1515 


ions invecan le m\*/R\* 1+ 305 (20 ) (e)"( 12 )° 
sien d Veet Vth Vet | “© \o7.one6 / \ 0.322) \4.1515/ | ~ 10 | 


— 


K = 7.3596/1.0119 = 7.2728 


li = 2.4387/1.0141 = 2.4048; Io = (.75)(h = 2.004 


a/{12 
VL= (2) 7.2728 = 11.4241 
2\12 


Closely Spaced Miter 
K = 1.52/h* 
TR 
ee SEO oe BS = —>\N same as elbow 
2 # 2 3 
h = 0.2242 


K = 1.52/(.2242)* = 5.2843 
lo = i = (.9)h’ = (.9),2242)? = 2.4387 


K and |] adjusters are the same as for the elbow 


130 


K = 5.2843/1.0119 = 5.2220 
1 = 2.4387/1,0141 = 2.4048 


vie = = 2) 5.2220 = 8.2026 
~ Ode . 


Tee 
lo = (.9/hy”; Ti = (3/4)(.) + 0.25 


yw AST _ 4400.22) 


= 0.3413 
In 4.1515 


lo = (.9)(0.3413)* = 1.8429; li = 1.632 


Stub-in 
Jo = (.9)/h®; li = (3/4)(Io) + 0.25 


h = T/rz = 0.322/4.1515 = .0776 
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lo= (.9/(0.776)” = 4,9485, li = 3.961 


Stub-in with pad 
Jo = (.9)/h%; li = (3/4)(1,) + 0.25 


(T+ 44)% (0.322) + 4(.322)]” 
—_ a 


= 0.2137 
(T?)r, (0.322) “(4.1515) 


Jo = (.9/(.2137)% = 2.5176; fi = 2.138 


Weldolet 
lo = (.9th”; li = Io 


3.3T  3.3(0.322 
h =— = 3.3(0.322) = 0.2560 
m 4.1515 


lo = (.9)/(0.2560) = 2.2325; li = 2.2325 


Samipre biune 
HPAICVA i119 Flexibility Factors 


Paygram: 


_——— —$S a] 
ample Prablom (Skotch if Desired) 


Input Function Display Comments 
4.625 A OD= 
mye RIS T= Each analysis will prompt the user for all the infor- 
12 RIS Re mation needed for that set of equations. 
100 RIS Pa 
27.9 RIS E= 
RIS K=7273 

Lv = 11,424 

Ni =2405 

To = 2.004 


Coding Form 


Program N umber HP-41CV-4 Title Flexibility Factors 
Step} Key Key Comments Step} Key Key Comments Step} Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
Q1+LBL “AA" Elbow analysis. 56 / Calculate Io. 99 PROMPT 
62 FIX 3 St Yt 108 STO 85 
03 SF 12 52.49 101 ARCL 85 
04 “ELBOW? 53 KOY 162 PRA 
65 PRA 54 / 193 *E=" 
06 CF 12 59 510 1h 164 PROMPT 
87 ALY 56 «70 Calculate li. 105 STO 66 
68 “OD=" Input routine. 57 * 186 ARCL 86 
89 PROMPT 58 9 197 PRA 
18 STO 81 597 188 ADY 
11 ARCL @1 64 STO 12 169 RCL 61 Calculate 
12 PRA 61 1.65 Calculate K. 118 RCL 92 mean radius. 
13 “T=* 62 RCL 69 Il - 
14 PROHPT 63 / 112 2 
15 STO 82 64 STO 18 113 / 
16 ARCL 82 65 RCL 43 Calculate Lv. 114 S70 88 
1? PRA 66 + 115 ¥t2 Calculate h. 
18 “Re 67 12 116 REL 92 
19 PROMPT 687 117 RCL 63 
26 STO 93 69 PI 118 + 
21 ARCL 83 76 + 119 ROY 
22 PRA 712 126 / 
23 “Ps* 727 121 STO 89 
24 PROMPT 73 S10 47 122 2 Calculate Io 
25 $T0 65 74 ¥EQ D Adjust for 123 EXTERt (same as li). 
26 ARCL 65 75 GTO B pressure. 124 3 
27 PRA 760LBL “BB Go to printer. 125.7 
28 “E=* 77 FIX 3 Miter analysis. 126 Yt¥ 
29 PROMPT 78 *HITER" 127 .9 
34 STO 66 79 SF 12 128 RY 
31 ARCL 86 38 PRA 129 7 
32 PRA 81 CF 12 138 STO 11 
33 ADY 82 ALY 131 STO 12 
24 RCL 81 Calculate 93 “OD=" 132 1.52 Calculate K. 
35 RCL a2 mean radius. 84 PROKPT Input routine. 133 RCL 69 
a. 85 STO 61 134 5 
37 2 86 ARCL GL 135 ENTERt 
39 STO 88 98 *T=" 13? 7 
4@ Xt2 Calculate h. a9 PROMPT 138 Ytk 
41 RCL 62 98 STO 92 139 7 
42 RCL 83 St ARCL 82 148 STO 18 
43% 92 PRA 141 RCL 83 Calculate VL. 
44 2OY 93 “Re* 142 * 
poe 34 PROKPT ee 
46 STO 49 95 STO 93 144 7 
“2 96 ARCL a3 oe 
48 EHXTERt 97 PRA 146 * 
49 3 98 “p=« 14? 2 
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Step! Key Key Comments Step} Key Key Comments Step} Key Key Comments 
Line Entry Code | Line Entry Code | Line Entry Code 

148 / 197 FIX 3 246 “OD=" Input routine. 

149 STO 67 Adjust for 198 SF 12 247 PROMPT 

158 XEQ D pressure. Go to 199 “STUB-IN" 248 STO 61 

15! G10 € printer. 268 PRA Stub-in analysis. 249 ARCL @L 

IS2eLBL “CC" Tee analysis. 261 CF 12 258 PRA 

153 FIX 3 202 ADY 251 “T= 

154 SF 12 203 “OD=" 252 PROMPT 

155 “TEE 204 PROHPT Input routine. 253 STO 62 

156 PRA Input routine. 285 STO @1 254 ARCL 62 

157 CF 12 286 ARCL O1 255 PRA 

158 “O]=" 287 PRA 256 “PAD=" 

159 PROMPT 288 “T= 257 PROMPT 

168 STO 61 289 PROKPT 258 STO 84 

161 ARCL 81 21@ STO @2 259 ARCL 64 

162 PRA 211 ARCL @2 260 PRA 

163 “T=* 212 PRA 261 ADY 

164 PROKPT 213 Al 262 RCL 1 Calculate 
165 STO @ 244 RCL BL Calculate - 263 RCL 62 mean radius. 
166 RCL @2 215 RCL &2 mean radius. 264 - 

167 PRA 216 - 265 2 

16 AW air 2 268 f 

169 RCL @1 Calculate 218 ¢ 267 STO 8S 

178 RCL & mean radius. 219 STO 68 268 RCL G2 Calaulate h. 
{71 - 228 RCL €2 =| Calculate h. 269 REL 84 

172 2 221 ROY 278 .5 

173 / aad 271 2 

176 $10 68 pa ei) © 272 + 

175 KCL ~~ Calcaate e242 Paee 273 2.5 

1% 7 anal 274 VIE 

17? 14 ie 275 RCL G2 

178 4.4 ae te 276 1.5 

179 = a 277 YtX 

169 ST 69 aa HOY 278 ¢ 

191 2 Galante Bi oa 279 RCL 88 

182 EXTERt = 280 # 

ies 232 STO 12 

183 33.75 Ginkwlo 281 STO 89 

147 a4 s . 282 2 Calculate L. 
15 VR 235 .25 283 ENTERt 

1% 25 mE 284 3 

17 ZOF ae 285 7 

ae 237 $10 I : aa 

149 510 12 233 GTO A Go to printer. a oe 

1a Cla lo. 23HLEL “EE” | Reinforcing pad 298 BOY 

Pas 240 FIR 3 analysis. ies 

152.6 —— 299 STO 12 

1% + + 7 291 475 Calculate lo. 
14 210 Mi | 243 Pen 292 + 

1H 6S & Go to printer. 244 CF 12 293 .25 

1G “I 245 Git 294 + 


Sup Key Key Comments Step! Key Key Comments Step! Key Key Comments 
Line Entry Code Line Entry Code line Entry Code| 
255 STO {1 344 AW THMLEL D | 
236 G10 A Go to printer. ¥45 °OD=" Required pad | (394 6 
Z7eLBL *SC* Weldolet analysis. | 346 PROMPT ick analysis. | 395 RCL 6 
298 FIX 3 347 STO 01 3% OL & 
299 SF 12 348 ARCL al 397 1 EG 
380 *KELDOLET* 349 PRA 3H 
Vl PRA 350 -T=" 379 / | 
HW CF 12 351 PROMPT Input routine. 4A s 
33 ADV 352 STO @2 431 RL B 
4 -0D=" Input routine. 353 ARCL a2 $42 PIL 
JAS PROMPT 354 PRA 493 / 
BW STO 81 3 710=" 4847 
387 ARCL 81 356 PROMPT 495 ERTERt 
a8 PRA 357 STO @5 425 3 
389 *T=" 358 ARCL 04 497 / 
318 PROMPT 359 PRA 468 Ytk 
311 STO a2 360 ADY 499 = 
312 ARCL 92 361 RCL 41 414 RCL 83 
313 PRA 362 RCL 82 411 ROL OB 
314 ADY 363 - 412 / 
315 RCL et Calculate 364 2 413 1 
316 RCL @2 mean radius. 365 / Calculate 414 ENTERT Calculate K 
3M? - 366 STO 48 mean radius. 4153 adjustment. 
318 2 367 RCL 4 416 / 
319 7 368 17K 417 Ytk 
326 STO a8 369 .9 418 + 
321 RCL 92 Calculate h. 370 + 419 1 
32 ROY Wi 1.5 Calculate required | 426 + 
323 / 372 vty pad from input Io.| 421 $T0 13 
34 3.3 373 RCL 82 422 ST/ 10 
325 + 374 1.5 423 ST/ 87 
326 STO 89 325 YtK 424 3.25 
32? 2 Calculate Ii. 37 425 REL 85 Adjust K and Lv. 
328 ENTERt 377 RCL 88 426 RCL 06 
329 3 378 + 42? 1 £6 
8 3279 4 428 4 
Bl te 38a YtX 429 7 
322 «9 381 RCL a2 436 + 
3B KOY 392 - 431 RCL @8 
334 / 383 2 432 RCL 82 Calculate | 
335 STO 12 Jaq & 433 7 adjustment. 
336 STO 11 Calculate Io. 385 STO il 434 2.5 
337 GTO A 386 ~PAD=" 435 tk 
3380LBL “SE 387 ARCL 11 436 + 
339 FIX 3 388 PRA 437 RCL 83 
340 SF 12 : 389 AMY 438 RCL 98 
341 "REO,D PAD* |Go to printer. 398 ADY Print pad 439 / 
342 PRA 391 CLE thickness. 44 2 
343 CF 12 392 STOP 441 ENTERt 


135 


Step! Key Key 
Line Entry Code 


Comments 


Step! Key Key 
Line Entry Code 


Comments 


Step/ 
Line 


Key Key 
Entry Code 


Comments 


442 3 

443 / 

444 Yt 
445 * 

446 | 

447 + 

448 STO 14 
449 ST/ I! 
45@ ST/ 12 
451 RTH 
4S2eLBL B 
4 “ke 
454 ARCL 16 
455. PRA 


Adjust I, and |j. 


491 RCL 12 
492 X>Y? 
493 GTO 19 
494 XOY 
495¢LBL 19 
496 ARCL & 
49? ACA 
498 PRBUF 
499 ADV 
368 ADY 
361 CLA 
362 CLE 
383 STOP 
964 . END. 


456 °L 
457 ACA 
458 SF 13 
459 °¥" 
468 ACA 
461 CF 13 
462 “= 
463 ARCL 67 
464 ACA 
465 PRBUF 
466¢LBL A 


Print routine 
for K and L,. 


467 I" 
468 ACA 
469 SF 13 
478 “1° 
471 ACA 
472 CF 13 
473 *=" 
474 1 

475 RCL If 
476 XY? 
47 GTO 18 
428 ROY 
479¢LBL 18 
488 ARCL x 
431 ACA 
482 PRBUF 
403 “1° 
484 ACA 
485 SF 13 
486 “0° 
487 ACA 
488 CF 13 
439 "=" 
496 1 


Print routine 

for I, and J; test- 
calculated results 
to see if I; or I, are 
less than 1.0. Print 
greater. 
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Part {i 


Pipe Stress 


Chapter 5 


Flanged Connection 
Bolt Tensioning 


Program TI-59-5 


Introduction: 


TI-59-5 performs calculations to determine the mini- 
mum required bolt tensioning for flanged joints to in- 
sure a leak-free connection. The program determines 
the maximum applied forces that tend to open the joint 
based on internal pressure, thermal and dead load 
bending moments, and the differential expansion/ 
contraction of the flanges and bolts. TI-59-5 also deter- 
mines the minimum bolt load needed to seat the gasket 
and the maximum bolt stress at installation. 


Nomenclature: 


Twenty-one pieces of data must be input for the 
analysis: 


Pipe outside diameter (in) 
T: Pipe wall thickness (in) 
Specific gravity of fluid 
ID: Insulation density (Ib/ft*) 
IT: Insulation thickness (in) 
P: Internal pressure (psig) 
I: Maximum stress intensification factor 
Cold allowable stress (psi) 
G: Mean diameter of gasket (G dimension) 
B: Effective gasket width (b dimension) (in) 
M: Gasket factor 
Hot allowable stress (psi) 
Y: Gasket seating stress (psi) 
eF: Coefficient of thermal expansion for flanges 
(pin/in/*F) 
Operating temperature of flanges (°F) 
eB: Coefficient of thermal expansion for bolts 
(pirvin/°F) 
Operating temperature of bolts (°F) 
Tensile area of bolts (in?) 


EB: Young’s Modulus of elasticity of bolts (Mega 
si) 
NO: Number of bolts per flange 
TI: Installation temperature (°F) 


The data G, B, M, and Y are defined in ASME Section 
VII, Div. 1, Appendix 2. 
Three user keys execute the program. 
A: Input data 
B: Execute program 
E: Initialize program 
The following variables are calculated by the program: 
Z: Pipe section modulus (in’) 
L: Maximum dead load span (in) 
SE: Allowable stress range (1.25SC + .25SH) (psi) 
W: Pipe operating weight per inch 


Method: 


TI-59-5 calculates four distinct forces that will tend to 
open the flanged joint. These are due to (1) internal 
pressure (2) thermal bending moment, (3) dead load 
bending moment, and (4) the differential expansion or 
contraction between the flanges and the bolts. Each of 
these forces are detailed below. 


(1) Force due to Internal Pressure 
The formula for this force is: 
(w/4)(G?)(P) + 2(B)(m)(G)(M)(P) 
NO. 


This formula is found in ASME Section VII, Div. 1, 
Appendix 2. This force is positive as long as P is posi- 
tive. 
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(2) Force due to Thermal Bending Moment 


This force is a “worst case” number that assumes that 
the worst bending moment allowed will occur at the 
flanged connection. The stress range allowable is di- 
vided by the stress intensification factor to obtain the 
nominal stress value. The formula is: 


7 | 4(Z)(SE) 
(G)Q)NO.) 


(3) Force due to Dead Load Bending Moment 


This force is also a “worst case” number that assumes 
the flanged connection is in the center of the maximum 
allowed dead load span. The formula is: 


3 = | Oe) 
3(G)(NO.) 


(4) Force due to Differential Expansion 


The ASME/ANSI B31.3 Code determines that for an 
uninsulated joint the flanges are approximately 90 per- 
cent, and the bolts approximately 80 percent, of line 
temperature. These values may serve as a reference for 
the user. They dictate that there will be a differential 
expansion/contraction rate for the flanges with respect 
to the bolts. The formula for this force is: 


F4 = (AB)(EB) [(ef)(TF — TI) — (eB)(TB — TI} 


For expansion, this number will be positive. For cryo- 
genic cases (contraction), the force will be negative. 

The final minimum required bolting force will be 
the combination of the above forces or: 


FR = Fl + F2 + F3 if design temperature is 
above the temperature when installed 


FR = Fl + F2 + F3 + |FAl if design 
temperature is below the 
temperature when installed 


If F4 is positive (expansion case), it will add to the 
force needed to seal the joint, so it is not necessary to 
preset the bolts to compensate for it. If F4 is negative 
(contraction case), this will tend to open the joint, 
and therefore the minimum bolt tension is increased to 
compensate for this phenomenon. 

The program goes on to calculate the minimum bolt 
tension required to seat the gasket, based on the input 
value of gasket seating stress. 

The formula from ASME Section VIII is: 


_ BURG) 
NO. 


WM2 


L is calculated as the lesser of the two following for. 
mulas: 


L due to bending stress = eee 
2(W')(1) 


4] EIA 
13.5(W’) 


L due to allowable deflection = 


where 


A is the allowable deflection in inches 

Z is in inches to the third power 

SH is in psi 

W' is the weight of pipe filled with water in lbs/ft 
Tis in inches to the fourth power 

E Modulus of Elasticity in psi 


The program goes on to choose the greater of FR and 
WM2 and derives the bolting stress at installation. 
Then, the maximum operating stress is calculated using 
the following formula: 


SMAX = [(Greater of FR or WM2) + Fi + F2 
+ F3 + F4] / Bolt area 


where F4 retains its calculated sign. Thus, if F4 is nega- 
tive, the operating stress will be decreased by the con- 
traction of the bolts. If F4 is positive, the bolt expansion 
will increase the stress. 

The final calculations give the user the forces that will 
tend to open the joint during hydrotest. F1 and F3 are 
recalculated and summed together to give this value. 
For this calculation, the following changes are made: 


sc 
P = PH = 1.5(P) (=) 


W = WH = the weight of pipe filled with water 


Limitations: 


The program assumes an allowable dead load de 
flection of 1 in. None of the input data is carried over 
to the next analysis. The program is self-initializing 
after the first execution. It should be used for flanged 
connections only. 

The program is not written to distinguish between 
bolts in pure tension, as is the case with hydraulic stud 
tensioners, and a combination of tension and shear, as 
is the case with torque wrenches. The user is cautioned 
to review paragraphs C.2 and C.3 of ANSI B1.1, Appen- 
dix C, to determine the correct stress area to input tothe 
program. 
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User Instructions 


Program Number _ T1-59-5 Title _ Flanged Connection Bolt Tensioning 


Instructions Input Keystroke Display 
1 Read in magnetic cards (3 sides). 


Ps Initialize program. E 0 
3s Input OD. . OD A OD 
4 Input T. Be A T 
5 Input SGF, SGF A SGF 
6 Input ID. ID A ID 
7 Input IT. Ir A IT 
8 Input P. P A ‘¢ 
9 Input I. I A if 
10 Input SC. sc A SC 
11 Input SH. SH A SH 
12 Input G. G A G 
13 Input B. B A B 
14 Input M. M A M 
1S Input Y. Yy A Y 
16 Input eF. eF A eF 
17 Input TF. TF A TF 
18 Input eB. eB A eB 
19 Input TB TB A TB 
20 Input AB. AB A AB 
21. ‘Input EB. EB A EB 
22 ‘Input NO. NO. A NO. 
23. «Input TI. TI A TI 
24 Execute program. B 
Z 
WwW 
L 
SE 
Fl 
F2 
F3 
F4 
FR 
WM2 
SINS 
SMAX 
PH 
WH 
FH 
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Data Register Contents 


= REGI- 
on DATA STER DATA 
os 30 | 2138 "FR" 
@ 31 | 433003 “wM2" 
- 7 32 | 36243136 "SINS" 
<= 33 | 3323 "PH" 
2 i» 34 | 43230 "WH 
o 35 | 2123 °F 


=» ?P 36 2103 “F2" 
- 4 37 2104 "F3" 


-~ x 38 | 36301344 "SMAX™ 

- 39 | 3216 "OD" 

; |G o | 7°T 

no 4) | 362221 “SGF" 7 

c iM 42. | 2416 "ID" 
“oy gg asee—SS—S 


mw "I" 


ia 4 | 3615 “SC” 
c 47 | 3623 "SH" 
+ |B 4g | 22 "G” 
> B 49 14 “B" 
= | Mo 50 | 30 "M" 
n wv 51 | 45 "¥" 
2 |Z 52 | $421 "eR" 
4 | WPL op. | 53 3721 "TB" 
of reat 54 | 5414 "eB" 
ele 55 | 3714 "TB" 
» | [s 1314 "ab" 
a |e 57 | 1714 "EB" 
» | PA sq__| 313240 "NO." 
"34 | DSZ 59 | 3724 "TI" 


The data in regigters 30-59 is recorded on 
magnetic card, side 3, 
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Row (etallied temporstuey 


mere C? a 


Qom 


D 
T 
F 
D 
T 
Fe 
1 
c 
H 
G 
EB 


16. 09 
4.097 


"From ASME Section VIII, Division 1, A ix 2 


"From ASME/ANSI B31.3, Appendix C, for 


eample 


Cant o€ an esparitin cane where the design temperature In higher 


Pipe outulele dlarteter (in) 

Pipe wall thickness (In) 

Speelfle gravity uf Mule 

Innulation denalty (Iem/{t’) 

Inoulation thickrtess (in) 

Internal presaure (pain) 

Maximum strove intensification factor 

Cold stress allowable (pal) 

Hot stress allowable (pst) 

“Moan dlameter of gasket (G dimension) (in) 
“Effective gasket width (B dlinenacm) (in) 
"Ganket factor 

"Gasket “ating stress (ps) 

“Coeffictent of thermal expansion for Hangers (pirvinD 
Operating, ternperature of flanges (V) 
“Coefficlent of thermal expansion for bolts (wirvinP) 
Operating, temperature of bolts ("F) 

Tensile area of bolts (in*) 

Youngs modulus of clasticity for bolts (Mega pu) 
Number of bolts per flange 

Installation temperature (‘F) 


Pipe section modulup (ir’) 

Pipe weight per inch, operating (Ibiin) 
Maximum pipe span (in) 

Allowable stress range (p21) 


Force due to Internal pressure (Ibs) 

Force due to thermal bending moment (Ibs) 

Force due to dead load bending moment (Ibo) 

Force due to differential thermal expansion between flanges and bolts Tbs) 


Fl + F2 + PS if TR>TH; Fl + FZ + FS + Pot TR<TL 
Minimum gasket seating load (bs) 

Bolting stress at installation (pai) 

Bolting stress at operating conditions (psi) 


Hydrostatic test pressure (psig) 
Hydrostatic test weight per inch of pipe (briri) 


Force due to hydrostatic test condition (bs) 


13 


Example Anatysis 


OD = 8.625” SC = 20,000 psi TP = 150°F 
T = 0.322" SH = 17,000 psi eB = 6.19 piniin/F 
SGF = 0.566 G = 10.5" TB = 125°F 
ID = 1) #/fP Be 1.25 AB = 0.5” 
IT = 3" M=3 EB = 27.9 x 10° PSI 
P = 100) psi Y = 10,000 psi No. = 12 
1= 2.44 eF = 6.25 pin‘ IT = 70°F 


(8.625)* — [8.625 ~ 2(.322)}*] 16.809 in® 
32 (8.625) 7 


N 
a 
a 


{(8.625)? = [8.625 — 2(.322)]*}a 


x ”x 283 = 2.377 #/in 
4 in 


Weight of pipe = 
[8.625 — 2(.322)]?m | 62.4 HR 
4 1728 in® 

fe 


Weight of water in pipe = = 1.807 #/in 


Weight of fluid = (0.566) (1.807) = 1.023 #/in. 


2 2) 
(6,625 + 2@)}* ~ 8.625%) UF _ 6 607 win 
4 1728 in? 


ft? 


Weight of insulation = 


Operating weight of pipe per inch = 2.377 + 1.023 + .697 = 4.097 #/in 


Hydrotest weight of pipe per inch = 2.377 + 1.807 = 4.184 #/in 
Allowable pipe span calculations: 
stress-based: 


-8(16.809)(8500) 


x2= i 7 
V (2.444.184) ae Pa 


deflection-based: 


TEs ame) x 12 = 498.739" = 499 


choose lesser of 2— L = 398” 


SA = 1.25(20,000) + .25(17,000) = 29,250 psi 
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Cee yeh) & 2b) eCG)GVN(P) 
NO. of bolts 


(+ NCS (TODO) + 2¢1.25)(r)(L0.5)G)(1000) 27H 
12 


™ M(Z\(SE) §(16.809)(29250) 63974 
(G\(NO. of bolts) — (10.5)(2.44)(12) 


iva (wy) _ (4.097)(366.543)? 14567 
GG) NO. of bolts ——-3(10.5)(12) 


Et = (Bolt area)(Bolt Modulus)[(eR(TF — Th - (eB)(TB - TH] 
where 


eF = Expansion coefficient for flanges 
eB = Expansion coefficient for bolts 
TF = Operating temperature of flanges 
TB = Operating temperature of bolts 
TI = Installation temperature 


= (0.5)(27.9)[(6.25)(150 — 70) — (6.19)(125 ~ 70)| = 2226 # 


Because the operating temperature is above the installation temperature: 


FR = Fl + F2 + F3 = 27833 + 6397 + 1456 = 35686# 


1 
Wiis Seas _ (1.25)(10. Sey _ Welt 


Choose greater of two for maximum installed bolt stress 


35686/0.5 71372 psi 


Maximum operating stress when installation temperature is lower than operating: 


(2Fl + 2E2 + 2F3 + F4]/Bolt area = [2(27833) + 2(6397) + 2(1456) + (2226)/0.5 = 147,195 psi 


ee 2000) 1765 psi 
: sc) _ —— | = 1764.06 =—— 
Hydrotest pressure = 1.5 (=) 1.5(1000) (= 


(1/4)(10.5)?(1764.706) + 2(1.25)()(10.5)(3)(1764.706) 
NO. of Bolts 


= 49116# 


Fl (hydrotest) = 


2. 
F3 Hydrotest = Sey = 1487# 
(3)(10.5)(12) 


F4 Hydrotest = 49116 + 1487 = 50603# 
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Bramplo of a dontirction nase where the de- 
sign tomperatane ty tower than the nvstalledt 
tempontare 


& 688 Tipe outuide diameter (in) 
0. 228 Npe wall thickness (in) 
OQ S86 Specitic gravity of Nuid 
9, Iulation density (tos) 
AN dysulation Uickness (i) 
1000, Intemal pressure (psig) 
a 44 Manion) stress Intensification factor 
S0000, : Cold stress allowable (pal) 
irvaod, Hor stress owadlo (psi) 
10,5 YMoun ditneter of gasket (G dimension) (in) 
1.85 “PHective ganbet width (6 dimension) (mn) 
SA ‘Gashar factor 
yoo0Rd, ) SGaskot soating shes (psi) 

5.5 NConreant of thermal expansion for Nanges (wivineF 
Operating temperature of Ranges (*F) 
“Coothetent of thermal expansion for bolts Guinin’F) 
Operating wanpernture of bolts CF) 

Tonedty area of bolts Gn’) 

Young's modulus of elesticty for bolts (Mega psi) 
Number of bolts per Hange 

Tastallavion temperature (CF) 


Pipe section modukus (in'S 

Pipe weight per inch, operating (1A) 
Miniaran pips span (in) 

Allowable stress range (psi) 


Fore dae to Internal pressure (Ibs) 

Fore due to thermal bending moment (Ibs) 

Fore due to dead lord bending moment (Ibs) 

Rorsdue to difterential thermal expansion between Manges and bold (IS 


Fl+ F2+ Sif TR Th Fl + F2 + BS + Ba if TR<TI 
WMS Minimum gasket seating load (Ibs) 

SINS Bolting stess.at installation (psi) 

SMAN Bolling stress at openiting conditions (psi) 


PH Hydrestatit test pressure (psig) 
Hpdresintit test weight per inch of pipe (Ib/in) 


Raree Jur to hydrostatic test cundition (Ibs) 


Sine 4S Sooo WH Diesen L A; zr 
“hee ADAP ARS BF Appertn CO fom 


Drample of a case where the gasket seati 
load és greater than the sum of the appiel 
loads. 


§. 685 
Q 149 
Lapa 
a » 
OQ, 
10, 
avg 
foa0g, 
iraan, 


Pipe outside Jismeter (in) 
Tipe wall thickness (m) 
Specific gravity of find 
Insulation density (Ibs fr’) 
Insulation thickness (in) 
Internal pressure (psig) 
Maximum stress intensificaton factor 
Cold stress allowable (psi) 
Hot stress allowable (psi) 
Mean diameter of gasket (G dimenston) (Gn) 
‘Effective gasket width (B dumension) (in) 
SN ‘Gasket factor 
Poougs, : *Gasket seating stress (psi) 
™Coeficent of thermal expansion for flanges (pinan*F 
Operating temperature of flanges (F) 
™Coofficient of thermal expansion for bolts (pinAn*F) 
Operating temperature of bolts (F) 
Tensile area of bolts (in?) 
Young's modulus of clasticity tor bolts (Mega psi) 
Number of bolts per lange 
Installation temperature (FP) 


as) mj 
NaroeTdaonsy 


my 


Pipe section modulus (in’) 

Pipe weight per inch, operating (Ibn) 
Maximum pipe span (in) 

Allowable strass range (psi) 


g 
RI 


aS 
%. ok 
SS 
ss) 


1 
5 
a 


wg 
m1 t~ 


4 
“ 


Force due to intemal pressure (Ibs) 

Force due to thermal bending moment (Ibs) 

Farce due to dead load bending moment (Ibs) 

Farce due to differential thermal expansion between flanges and bolts (Ibs) 


Ws 4M 
(aKny~4 
oe 


OY MINN 
miles is iad) 
Me Sf 


“AV be He 


f 
we 


s 


a 
on 
wm 


Ft F2+ Bit TROT; Fl + F2 + 3 + Feit TRTI 
Minimam gasket seating load (Ibs) 

Bolting stress at installation (psi) 

Bolting stress at operating conditions (psi) 


WI -SUINY 
GI Ts 
CSNY 4 
’ 


WS) 4 ip 
(DUS 44 


Hydrostatic test pressure (psig) 
Hydrostatic test weight per inch of pipe (Ibfin) 


Force due to hydrostatic test condition (Ibs) 


“from ASNIE Seciian VIL Diwan 1, ARpeRdix 2 
“tom ASNIL ANSI BSI 3. Append. © ier eample 
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Sample Problem 


; THS9S 
Program: 


OD = 8,625" eF = 6,25 jin/in/°F 
T » 0322" TF = 150°F 
SGF = 0.566 
ID = 11 wns 
Tres eB = 6.19 plin/in/°F 
TB = 125°F 
P = 1000 psig AB = 0,5 in2 
T = 2.44 EB = 27.9 EB6 
SC = 20,000 psi NO, = 12 
SH = 17,000 psi 
G = 10,5" TI = 70°F 
B = 1,25" 
Me=3 
Y = 10,000 psi 
| Key 
Step Input Stroke Display Printer Comments 
1 E 0 Initialize program. Sets pointers for 
the input routine. 
2 8.625 A 8.625 8.625 OD | Program stores pipe OD in ROL. 
3 .322 A 0.322 0.322 T | Stores pipe T in RO2. 
4 566 A 0.566 0.566 SGF | Stores specific gravity of fluid in 
RO3. 
E] 11 A i. pki ID Stores insulation density in R04, 
6 3 A 3. 3h, IT Stores insulation thickness in ROS. 
7 1000 A 1000, 1000. P Stores internal pressure in R06. 
8 2.44 A 2.44 2.44 I Stores intensification factor in R07, 
9 20000 A 20000. 20000. SC Stores Cold allowable stress in R08. 
10 17000 A 17000. 17000. SH Stores Hot allowable stress in R09, 
11 10.5 A 10.5 10.5 G Stores Gasket mean diameter in R10, 
12 1.25 A 1:25 1.25 B Stores Gasket effective width in 
R11. 
13 3 A 35 3. M|_ Stores Gasket factor in R12. 
14 10000 A 10000. 10000 Y | Stores gasket seating stress in R13. 
15 6.25 A 6.25 6.25 eF | Stores thermal expansion coefficient 
for flange in R14. 
16 150 A 150 150 TF | Stores flange temperature in R15. 
17 6.19 A 6.19 6.19 eB Stores thermal expansion coefficient 
for bolts in R16. 
18 125 A 125 125 TB | Stores bolt temperaturre in R17. 
19 FP A 0.5 0.5 AB | Stores bolt tensile area in R18. 
20 27.9 A 27.9 27.9 EB Stores bolt modulus of elasticity in 
R19, 
21 12 A 12 12 NO. Stores number of bolts in R20. 
22 70 A 70 70 TI Stores installation temperature in 
R21, 
23 B 16.809 Z The program calculates the pipe 
4.097 W section modulus, the operating 
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step 


Input 


Key 
Stroke 


Display 
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Printer 
367. L 
29250. SE 
27833. Fl 
6397. F2 
1456. F3 
2226. F4 
35686. FR 
34361. WM2 
71372. SINS 
147195. SMAX 
1765. PH 
4.183 WH 
50603. FH 


Comments 


weight per inch, the allowable dead 
load span, and the stress range. 


The program calculates next all the 
forces that add up to the minimum 
required bolt load. 


The program sums up the total and 
then calculates the minimum gasket 
seating load for the bolts. From the 
greater of the two, the program 
calculates the installed bolting stress. 
Then the maximum operating stress 
in the bolts is calculated. 


The final calculation is done using 
the hydrotest values for pressure and 
weight per inch. F1 and F3 are 
recalculated and summed together to 
make the value of FH. 


Coding Form 


Program Number TI-S9-5 Title Flanged Connection Bolt Tensioning 
Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
“> BL | Input routine: UoD nS +x 120 33 Ke 
oe 1 oa Uses RO1 and R29) Ge! $3 RCL 121 22 1N¥ 
<©  s- S<T Jas pointers. (62 Oo 06 122 44 SUM | Insulation WPlisin 
vus Ol 4 O63 85 + 123 22 22 | R26. 
004 <¢! SUM O64 S93 4 2 43 RCL 
o0S 29 29 o65 55 = 125 of 
Ode 38 OF adée ag 4 126 985) + | Pipe Z is in RZ 
G07 20 20 |Alphacodesare | 057 SS N ap az 2 
QOS ~} RC |storedin memory | 068 48 RCL 128 65 > 
308 28 29 Joncard side 3. ase in 10 129 48 RCL 
a10 $9 UP o7a 38 Ne 130 a5 05 
Jil a4 Qs orl 6a xX 31.4695 = 
Oll $2 NLT QFE 438 ROL 132 33 
313 98 OP ? O06 33 44 
Jit Ge Os ) 3426 
Cs “2 St a 135 89 
bis CO 00 RIN T36 55 
O17 9 RS SL. | Subroutine: 13? oO4 
OLS ~e LBL | Subroutine: 2 Cf | Calculates F3. 138 95 
Dee sf OD Divides a number SL. 39.06C(«4 
25 £5 = | by the number of 33 400 2 
O31 23 RCL | bolts. x id. 4a 
022 2 53 RCL i42 26 26 
33 275° «8S i43 49 PRD 
rel 144 27 27 
Prints data with 55 = 42 3.5 
alpha labels. gq2 3 146 as 8 
55 <+ 4? 35 = 
43 RCL 48 49 PRO 
io610 149 22 22 
id TD 30 43 ROL 
92 RIN tot Bh Ot 
fe 7& LBL |Main program. tae 22 INV 
Subroutine: — 93. 12 B |This at calculates} 133 49 PRD 
ES Multiplies w times | 094 98 AD\! |pipe weight per 134 22 
-3 B times G. 095 43 RCL |inch, water 155° 93. 
We o96 01 weight-per-inch, | 196 U2 = 
35 a9? 4633 insulation weight | 157 OS 8 
33 098 42 per-inch, and pipe| 159 U3 3 
0 1 039 «23 section modulus. 152 49 PRD 
65 > ian) 634 60 25 23 
89 4 101 42 Bi SS. 
s+) 102 26 62 00 4 
62 RIN 103 33 x2 163 03 3 
7s LBL |Subroutine: in4 42 STD 64 06 6 
Bt Dividesa number | {495 22 22 165 O11 i 
by the bolt area. [106 43 ROL 166 O01 1 
ig? oi O01 167 49 PRO 
108 75 - 168 27? 27 
103 02 @2 69 435 RCL 
110 65 x 17o 04 O4 
111 435 RCL 1fl Sh = 
520 Subroutine: 112 02 o2 we aL i 
052 ? Calculates F1. 119 95 = fs OF F 
ae ee 3 114 33 X2 |PipeWPlisinR23.} i74 02 2 
gen Ge 115 42 STO i7S ag 8 
wie ge 2 116 27 27 i7é 95 = 
PG’ eo WW? 94 #7- ifr 649 
pee 2 OR 118 44 SUM |Water WPIisin | 178 
Hoe ME Me 119 23 23 |Ro7. 73 
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za 
° 
< 


Comments 


Comments 


Comments 


o 


ZaQwd 
BOW 


mm 


aQ 


z 
AS-iT 


QT 


x 


i 


wo 


(ev) 


Pipe WPI is also 
stored in R24. 
Water WPI is 
added to R24, 
Fluid WPI and 
insulation WPI are 
added to R23. 


wo 


ono 


aa 


aT 


+OORAN* H-j—A 


No 
oT 


OMCIND+ADAXNON OP Ah 


A 
T 


tN 
N 


7 ¥ 


a 
aGqg 
wry 


afi 


ris 


a 
Br 


vA 
lOoODtQOwalnre 


ar 


ia | 
ey 


Lbased on bending 
stress is calculated 
and put into the 
test register. 


JANnAaNxXNuN: 


SE is calculated 
and stored in R26. 


NIN NNN 
CHC CC CAC 


Wy Nom 


Prints Z with alpha 
label. 


F2 is calculated and 
printed and 
summed into R27, 


F3 is calculated, 
printed and 
summed into R27. 


wD 
ee 


cae 


a 
ni 


OS 


Ps) 
BDOQAMO Kee +r 


AO po ho 4 


> CU 
O3 


ae 


vA 


ZUM OF 


ar 


L based on 1” 
deflection is 
calculated. 


Prints W with 
alpha label. 


j4-ou 


A 
F 


Prints L with alpha 
label. 


2 
\ 
1 
6 
4 


No oo Of cow 


9 03 6) 03:03 6) O3/PY & 
DOP OP a 


MPM MP DM 


uw 
Q 


The two values of L 
are compared and 
the smaller is 
converted to inches 
and stored in R25. 


Meant SO ON BB 


c 


Prints SE with 
alpha label. 


Nim 42.1 


pp i 
Ob Os bo OO 


305 OI ts) 


RCL 
=I 


fe 


AJ 


SO 9 Io 
Goi fo 
a [~ 


F1 is calculated and 
printed and stored 
in R27. 
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Al 
=a 


O-J OOO OTN es Cl + Od 


6 fe 


ise) 
DIS We OBR 1 t 


F4 is calculated and 
stored in R28. 


sa 


PH TOL Be 0 FI 
Us pss 


—J 07 oo 


1 


(0 OF 4a O30 
SN Os bolog 


F4 is printed. 


Loc Code key Comments Loc Code Key $20Beaceemseee Comments 
= ae 220 %3  . |The hydrotest 7 
sy <= 221 05 5. |pressure multiplier 
ete 46. = 622 65 is calculated and 
Zs ae a FR is printed. 423 43 RCL |multiplied into 
“t> te SCL [If Fislessthan | 424 09 08 |RO6. Fl is 
S55 25 ES |zero, the absolute 25 55 <= |recalculated and 
se £2 CF \valueisaddedto | 426 43 RCL |stored in R28 
S37 cE |FI+F2+R. 197 
20S <4 SUA 
389 50 INI 
310 85 + 
3710 Te L8L 
S72 44 SUM 
43° RCL 
ay 27 Hydrotest WPI is 
5 = |The total FR is put into R23. F3 is 
<2 STO |stored in R29. recalculated and 
23 29 added to R28. 
+3 PCL 
-0 3 
,6. A" “PH” is printed. 
ES Ip WN is calculated 
ae and printed. 
+3 RCL 
13 3 
6 le D 
a Be BIT “WH” is printed. 
388 43 RCL 
389 31 31 
290 16:A' 
S91 32 %!T |WM2and FR are 
292 42 RCL |compared. The 
333 29 29  |larger is stored in 
324 77 GE |R29and is used to 
395 29 CP calculate the 55 “FH” is printed. 
396 32 iT | installation bolt fa] 
3397 42 STO |stress. 38 ADV 
338 29 29 43 RCL 
399 76 LBL 28 28 
#00 29 CP S2 AIT 
301 i10€E' 43 RCL 
402 423 RCL 35 35 
403 32 32 16 A’ 
404 16 A’ 464 76 LBL |Initialize program. 
405 +3 RCL |The operating 465 15 E 
406 29 28 |stressiscalculated.| 466 22 INV 
407 85 -~ |The greaterofFR | 467 58 FIX 
406 43 RCL |jandWMZ2isadded| 4g9 g3 3 
409 29 29 |toFl+F2+F3+ 469 08 8 
410 @5 + F4. F4 holds its 470 42 STO 
411 43 PCL |sign. 471 29 29 
412 27 27 472 25 CLR 
413 24 ) 473 42 STO 
414 10 Ef 474 00 OO 
415 42 RCL 475 91 R/S 
416 36 38 
4\7__ 6 Alt 
412 98 ADY 
419 OL 3 
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Pipe outside diameter (in) 

Pipe wall thickness (in) 

Specific gravity of fluid 

Insulation density (Ibs/ft*) 

Insulation thickness (in) 

Internal pressure (psig) 

Maximum stress intensification factor 

Cold stress allowable (psi) 

Hot stress allowable (psi) 

*Mean diameter of gasket (G dimension) (in) 
*Effective gasket width (B dimension) (in) 
*Gasket factor 

*Gasket seating stress (psi) 

“Coefficient of thermal expansion for flanges (pin/in/°"F 
Operating temperature of flanges (°F) 
“Coefficient of thermal expansion for bolts (uin/in/°F) 
Operating temperature of bolts (°F) 

Tensile area of bolts (in) 

Young’s modulus of elasticity for bolts (Mega psi) 
Number of bolts per flange 

Installation temperature (°F) 


Pipe section modulus (in>) 

Pipe weight per inch, operating (Ib/in) 
Maximum pipe span (in) 

Allowable stress range (psi) 


Force due to internal pressure (Ibs) 

Force due to thermal bending moment (Ibs) 

Force due to dead load bending moment (Ibs) 

Force due to differential thermal expansion between flanges and bolts (Ibs) 


Fl + F2 + F3 if TF>TI; Fl + F2 + F3 + F4 if TF<TI 
Minimum gasket seating load (Ibs) 

Bolting stress at installation (psi) 

Bolting stress at operating conditions (psi) 


Hydrostatic test pressure (psig) 
Hydrostatic test weight per inch of pipe (Ib/in) 


Force due to hydrostatic test condition (Ibs) 


“From ASME Section VIII, Division 1, Appendix 2 
“From ASME/ANSI B31.3, Appendix C, for example 
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Program HP-41CV-5: Flanged Connection Bolt Tensioning 


Introduction: 


HP-£LCV-5 performs calculations to determine the min- 
imum required bolt tensioning for flanged joints to in- 
sure a leak-free connection. The program determines 
the maximum applied forces that tend to open the joint 
besed on internal pressure, thermal and dead load 
bending moments, and the differential expansion/con- 
traction of the flanges and bolts. HP-41CV-5 also deter- 
mines the minimum bolt load needed to seat the gasket 
and the maxdmum installed and operating bolt stresses. 


Nomenclature: 


Twenty-one pieces of data must be input for the anal- 
ys 


OD: Pipe outside diameter (in) 

Pipe wall thickness (in) 

Specific gravity of fluid 

Insulation density (Ib/ft*) 

Insulation thickness (in) 

Internal pressure (psig) 

Maximum stress intensification factor 

Cold allowable stress (psi) 

Hot allowable stress (psi) 

Mean diameter of gasket (G dimension) (in) 
Effective gasket width (b dimension) (in) 
Gasket factor 

Gasket seating stress (psi) 

Coefficient of thermal expansion for flanges 
(ninin*F) 

Operating temperature of flanges (°F) 
Coeffident of thermal expansion for bolts 
(nivvin*F) 

Operating temperture of bolts (“F) 

Stress area of bolts (sq- in) 

Young’s modulus of elasticity of bolts (Mega 


a &A eee ot bara b an 


psi) 
NO.: Number of bolts per flange 
Ti: Installation temperature (°F) 
The data G, b, M, and Y are defined in ASME section 
VIL, Div. 1, Appendix 2. 
The following variables are calculated by the pro- 
gram: 
Z Pipe section modulus (in?) 
L: Maximum dead load span (in) 
Allowable stress range (1.25SC + .25SH) (psi) 
W: Pipe operating weight-per-inch 


Method: 


HP-41CV-5 calculates four distinct forces that will tend 
to open the flanged joint. These are due to (1) intemal 
pressure, (2) thermal bending moment, (3) dead load 
bending moment, and (4) the differential expansion or 
contraction between the flanges and the bolts. Each of 
these forces are detailed below. 


(1) Force due to Internal Pressure 
The formula for this force is: 
Fy = GE) + 2OMANGMIP) 
NO. 


This formula is found in ASME Section VIII, Div. 1, 
Appendix 2. This force is positive as long as P is 
positive. 


(2) Force due to Thermal Bending Moment 

This force is also a “worst case” number that assumes 
that the worst bending moment allowed will occur at 
the flanged connection. The stress range allowable is 
divided by the stress intensification factor to obtain the 
nominal stress value. The formula is: 


_ | 4@ se) 
(MNO) 


(3) Force due to Dead Load Bending Moment 


This force is also a ““worst case” number that assumes 
the flanged connection is in the center of the maximum 
allowed dead load span. The formula is: 


— eee 
3(G\(NO.) 


(4) Force due to Differential Expansion 


The ASME/ANSI B31.3 Code determines that for an 
uninsulated joint the flanges are approximately 90 per- 
cent, and the bolts approximately 80 percent, of line 
temperature. These values may serve as a reference for 
the user. They dictate that there will be a differential 
expansion/contraction rate for the flanges with respect 
to the bolts. The formula for this force is: 


F4 = (AB)(EB) [(ef)(TF — TI) — (eB)(TB — 1] 
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For expansion, this number will be positive. For cryo- 
genic cases (contraction), the force will be negative. 

The final minimum required bolting force will be 
the combination of the above forces or: 


FR = Fl + F2 + F3 if design temperature is 
above the temperature when installed 


PR = Fl + F2 + F3 + |F4| if design 
temperature is below the 
temperature when installed 


If F4 is positive (expansion case), it will add to the 
force needed to seal the joint, so it is not necessary to 
preset the bolts to compensate for it. If F4 is nega- 
tive (contraction case), this will tend to open the joint, 
and therefore the minimum bolt tension is increased to 
compensate for this phenomenon. 

The program goes on to calculate the minimum bolt 
tension required to seat the gasket, based on the input 
value of gasket seating stress. 

The formula from ASME Section VII is: 


_ OGM 


WM2 
NO. 


L is calculated as the lesser of the two following for- 
mulas: 


L due to bending stress = poe 


4) EIA 
L due to allowable deflection = 73.5(W’) 


where 


A is the allowable deflection in inches 
Z is in inches to the third power 
SH is in psi 


W’ is the weight of pipe filled with water in Ibs/ft 
I is in inches to the fourth power 
E is modulus of elasticity in psi 


The program goes on to choose the greater of FR and 
WM2and derives the bolting stress at installation. Then 
the maximum operating stress is calculated by the fol- 
lowing formula: 


goper = [(Greater of FR or WM2) + F1 + F2 
+ F3 + F4)/Bolt area 


where F4 retains its calculated sign. Thus, if F4 is nega- 
tive, the bolt contraction will lessen the bolt stress at 
operation. If F4 is positive, the bolt expansion will add 
to the bolt stress during operation. 

The final calculations give the user the forces that will 
tend to open the joint during hydrotest. Fl and F3 
are re-calculated and summed together to give this 
value. For this calculation, the following changes are 
made: 


= PH = 1.5(P (=) 
P= B= LR) | 


W = WH = the weight of pipe filled with water 


Limitations: 


The program assumes an allowable dead load deflec- 
tion of 1”. None of the input data is carried over to 
the next analysis. The program is self-initializing after 
the first execution. The program should be used for 
flanged connections only. 

The program is not written to distinguish between 
bolts in pure tension, as is the case with hydraulic 
stud tensioners, or a combination of tension and shear, 
as is the case with torque wrenches. The user is cau- 
tioned to review paragraphs C2 and C.3 of ANSI 
B 1.1, Appendix C, to determine the correct stress 
area to input to this program. 
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keyboard Card Labeling 


l\eEeqge8ge2 
| oseqeageaea 
H{oogeqa 


KEYBOARD 


— ===) 
i 


i — | 
_———e 


SYSTEM 


CONFIGURATION . 4 


User Instructions 


Tyogtam Number _HP-41CV-5  Titfe _ Flanged Connection Bult Tensioning 


Sizp Instructions Input Keystroke Display 
1 Initidiize program E OD= 
2 = Input pipe sve. OD R/S T= 
5s Inpm pipe wall thickness T R/S SGF= 
4 Input specific gravity of fluid. SGF R/S ID= 
5 Input mulation deasity. ID R/S = 
6  ‘mput imsvlaton thickness. IT R/S P= 
7 Input pipe imterm</ pressure. Pp R/S E 
g ‘Input stress anteasification factor. 1 RIS SC= 
9 Input odld stress allowable. SC R/S SH= 
1) input hotstress allowable. SH R/S CG 
q] «Input mean diameter of gasket (G dimensioa). G R/S b= 
2 Input effective gacket width (6 dimension). b R/S ME 
73. «Input gasket factor. M RIS Y= 
34 Input gasket seating stress. Y R/S = 
45 ‘Input coefficient of thermal expansion for flanges. eF R/S TF= 
46 Input operating temperature for flanges. TF R/S eBe 
cs np thermadd coefficient of expansion for bolts. B R/S Te 
18 Input operating temperature for bolts. TB RS AB= 
19 ‘Input stress area of bolts. AB R/S B= 
2) ‘Input Young’s modulus of elasticity of bolts. EB R/S NOs 
21 =‘ Input number of bolts per flange. NO. R/S Te 
7? Input instalation temperature. TI R/S 
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Registers, Flags, Assignments 


Program Number _HMICVS Title Flanged Connection Bolt Tensioning 


BOBSZSSBEGRFGZLTGORSSE 


I 
vu 


16 


DATA REGISTERS DATA REGISTERS 

39 

y 40 
41 

Nel - 

Nb) a 

ol 44 

: 45 

pie 46 

a 47 

. 48 

. 49 

M 

Y 

ee 

TF 

& FLAGS 

Init 

e # s/c Set Indicates 

AB 

EB 

NO, 

Tl 

Z 

WPI operating 

WPI hydrotest 

Lused 

SE 

Sum of Fl + F2 + F3 


4; Sum of Fl + F3 hydrotest 


Sum of 2F1 + 2F2 + 2F3 + |F4| IF F4 20 ASSIGNMENTS 


Label Key Function 
BS 15(@) 
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Clear Indicates 


Key 


Example of a case where the operating tem- 
perature {s greater than the installation tem- 
perature, 


OD= 6,625 
T= 6.222 
SGF= 6,566 
ID= 11.068 
IT= 2.606 
P= 1,606,666 
I= 2.448 
SC= 26,060,066 
SH= 17,066. 692 
G= 1.506 

b= 1.256 

M= 3.662 

Y= 16,000.608 
eF= 6.250 
TF= 156,060 
eB= 6.198 
TB= 125.808 
AB= 6.506 
EEB= 27.906 
NO. = 12.000 
TI= 76.606 


2=16.889 
W=4.897 
L=367. 
SE=29,25@. 


F4.= 2,226. 


FR= 35,686. 

WM2= 34,361, 
oinst= 71,372, 
aoper= 147,195, 


Ph.t.=1,765. 
Wh.t.=4.183 


FH=50, 682. 
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Example Analysis 


OD = 8.625” SC = 20,000 psi 
T = 0.322" SH = 17,000 psi 
SGF = 0.566 G = 10.5" 
ID = 11 #/f° B= 1.25 
T=3" M=3 
P = 1000 psi Y = 10,000 psi 
T=244 eF = 6.25 wirvin/°F 


7 ao | (625) = 18.625 = 21.322)}"] _ 16.809 in? 
= 32 (8.625) = 


[(8.625)? — [8.625 — 2(.322)]*}a 
4 


Weight of pipe 


Weight of water in pipe = z 


[8.625 — 2(.322)]?ar ” 62.4 #/ftP 


TF = 150°F 

eB = 6.19 pin/in/°F 
TB = 125°F 

AB = 0.5" 

EB = 27.9 x 10° PSI 
No. = 12 

IT = 70°F 


# 
x 1" x .283 —5 = 2.377 #/in 
in 


Weight of fluid = (0.566) (1.807) = 1.023 #/in. 


8.625 + 2(3)]* — 8.6257 
Weight of insulation = wees 


= 1.807 #/in 
1728 in? 
fe 
1i #/f0 A 
x — = 0.697 #/in 
1728 in? 
fe 


Opezating weight of pipe per inch = 2.377 + 1.023 + .697 = 4.097 #/in 


Eiydrotest weight of pipe per inch = 2.377 + 1.807 = 


Allowe2ble pipe span calculations: 
siess-beseck 


_S(16.309)(3300) 
+ ———_— 12 = 366.543” ~ 367” 
) DLO(£1SH12 


Ceffechombased- 


+ SEES TZ ASO\E 
_ (TE SEEG NTE OXE) 19 = 498.739" ~ 499" 
? Bs (4£144(2) 


Groes= lesser af 2— L = 398" 


1 25(10,000) ~ 25(17,000) = 29,250 psi 


4.184 #/in 
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ae (w/4)(G?)(P) + 2(b)(m)(G)(M)(P) 
NO. of bolts 


__ (w/4)(10.5)"(1000) + 2(1.25)(a7)(10.5)(3)(1000) _ 27833# 
12 = 


4(Z)(SE) _ 4(16.809)(29250) _ 6397# 
(G)(I(NO. of bolts) (10.5)(2.44)(12) 


Fa = 


—_ (W)(L?) (4.097)(366.543)* _ 1456# 
(3)(G) NO. of bolts 3(10.5)(12) 


F4 = (Bolt area)(Bolt Modulus)[(eF)(TF — TI) — (eB)(TB — TH] 


where 


eF = Expansion coefficient for flanges 
eB = Expansion coefficient for bolts 
TF = Operating temperature of flanges 
TB = Operating temperature of bolts 
TI = Installation temperature 


= (0.5)(27.9)[(6.25)(150 — 70) — (6.19)(125 — 70)] = 2226 # 


Because the operating temperature is above the installation temperature: 


FR = Fl + F2 + F3 = 27833 + 6397 + 1456 = 35686# 


_ (BGA) _ 4.25)(10.5)(m)(10000) _ 343614 
12 = 12 


WM2 


Choose greater of two for maximum installed bolt stress 


35686/0.5 71372 psi 


Maximum operating stress when installation temperature is lower than operating: 


(2Fl + 2F2 + 2F3 + F4]/Bolt area = [2(27833) + 2(6397) + 2(1456) + (2226)]/0.5 = 147,195 psi 


Sc 20,000 1765 psi 
H = 1, — ]} = 1.5(1000) | ——— } = 1764.706 =———— 
ydrotest pressure = 1.5 p(S) ( »( eee 
(/4)(10.5)(1764.706) + 2(1.25)(ar)(10.5)(3)(1764.706) _ 
Fl (hydrotest) = NO. of Bolts 49116# 
2 
(4.184)(366.543)° _ sary 


F3 Hydrotest = 
(3)(10.5)(12) 


F4 Hydrotest = 49116 + 1487 = 50603# 
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Example of a case where the operating tem- 
perature is less than the installed temper- 


28,008. 808 
SH= 17,080. 608 
G= 16.588 
b= 1.258 
M= 3.008 
Y= 10,800. 080 
eF= 95.508 
TF=-150. 08¢ 
eB= 5.578 
TB=-125. 808 
AB= 8.588 
EB= 27.988 
NO. = 12.808 
TI= 70.608 


2=16. 889 
W=4,097 
L=36?. 
SE=29, 258. 


Fi.= 27,833, 
F2.= 6,397, 
F3.= 1,456, 
F4,=-1,728. 


FR= 37,414, 
WM2= 34,361, 
cinst= 74,827. 
Goper= 142,742, 


1,765. 
4.183 


FH=56, 683, 
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Example of a case where the gasket seating 
load is greater than the sum of the applied 


OD= 8.625 


T= 6.148 
SGF= 8.000 

I D= 6.000 
IT= 6.008 

P= 150,000 

I= 2.448 

SC= 26,000.900 
SH= 17,008, 600 
G= 16.580 

b= 1.258 

M= 3.608 

Y= 16,600.008 
eF= 5.508 

TF =-158.008 
eB= 5.578 
TB=-125. 008 
AB= 0.500 
EB= 27.900 
NO. = 12.000 
TI= 78.000 


2=8.212 
WL. 115 
L=298. 
SE=29,256. 


FR= 9,291, 
WM2= 34,361. 
ginst= 68,722. 
Gorer= 98,393. 


Ph.t.=265. 
Wh. t. =3.883 


FH=8, 894. 


HP-4ICV-5 tite 


Sample Problem 


Flanged Connection Bolt Tensioning 


Program: 
Sample Problem (Sketch if Desired) 
OD = 8.625 eF = 5.50 plin/in/°F 
T = 0.322 TF = -150° F 
SGF = 0.566 eB = 5.57 pin/in/’F 
ID = 11 Io/ft3 TB = -125° F 
IT = 3" 
AB = 0.5 in? 
P = 1000 psig EB = 27.9EE6 
1=2.44 NO, = 12 
SC = 20,000 psi 
SH = 17,000 psi 
Tl =70°F == 
G = 10.5" 
b = 1.25" 
M=3 
Y = 10,000 psi 
Input Function Display Comments 
E OD= Initialize program, prompt for OD. 
8.625 R/S = Stores OD; prompts for T. = 
322 R/S SGF= Stores T; prompts for SGF. 
566 R/S ID= Stores SGF; prompts for ID. 
11 R/S = Stores ID; prompts for IT. 
3 R/S P= Stores IT; prompts for P. 
1000 R/S [= Stores P; prompts for I. 
2.44 R/S SC= Stores I; prompts for SC. 
20000 R/S SH= Stores SC; prompts for SH. 
17000 R/S G= Stores SH; prompts for G. a 
10.5 R/S = Stores G; prompts for b. 
1.25 R/S = Stores b; prompts for M. 
4 R/S = Stores M; prompts for Y. 
10000 R/S eF= Stores Y; prompts for eF. 
5.5 R/S = Stores eF; prompts for TF, 
-150 R/S eB= Stores TF; prompts for eB. 
5.57 R/S TB= Stores eB; prompts for TB. 
-125 R/S = Stores TB; prompts for AB. 
5 R/S EB= Stores AB; prompts for EB. 
27.9 R/S NO.= Stores EB; prompts for NO. 
12 R/S Tl= Stores NO.; prompts for TI. 
70 R/S 
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Input 


Function 


Display 


Z=16,809 
W=4,097 
L=367. 

SE= 29,250. 
Fl.= 27,833. 
F2,= 6,397. 
F3.= 1,456. 
F4.= -1,728 


FR= 37,414, 
WM2= 34,361. 
oinst= 74,827. 


ooper= 142,743. 


Ph.t.=1,765 
Wh.t.=4.183 


FH= 50,603. 


Comments 


Program stores TI and begins calculation. The 
values of pipe section modulus, operating weight- 
per-inch, minimum span, and allowable stress range 
are calculated and printed. 

The program calculates the forces due to internal 
pressure, thermal bending moment, dead load bending 
moment, and the force due to temperature gradients 
between flanges and bolts. 


FR is calculated and is dependent on whether or not F-4 

is negative or positive, 

WM2 is calculated and compared against FR. The 
greater of the two is divided by the bolt stress area to get 
the installation bolt stress. 

The operating bolt stress is also dependant on the sign of 
F4: It should be pointed out that the value shown for this 
problem would be unacceptably high. 


The program goes on to calculate the hydrotest values of intemal 


pressure and weight-per-inch. F1 and F3 are recalculated using 
these new values and are summed to give the value FH. 
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Coding Form 


Program Number HP-41CV-5 Title __Flanged Connection Bolt Tensioning 
step’ Key Key Comments Step) Key Key Comments {St 
; ep| K ; 
Ce = Initializ a | = ean Code Conese 
mu e i ; | 
® CLAG Clear all regio By el IND 08 cae ea ioe a ae Stored 
é3 CLA Clear the alpha 52 “He sorcerer falls kath 188 ST/ 22 in R23 for an 
#4 “0° display. Store , the main routine. | !4! «283 ae nat A 
&5 ASTO Ot alpha labels for 53 SF 12 | 182 ST® 23 Weight of pipe and 
; input routine in 54 PROHPT water 15 stored in 
eT ROL ROO. 55 ACA 183 ST# 24 R24 for a hydrotest 
07 ASTO @2 56 CE 12 104 .836)! WPI. 
03 “SOF | 105 $Te 27 
ex usrnied 57 ACK 196 REL 04 
1@ ID" 58 PREUF 197 1728 
1 ASTO @4 59 STO IND 68 133 7 
12°11? 66 ISG 68 189 ST# 26 
13 ASTO @5 ost S 118 RCL 26 
14 “P* 62 ADY a program. I11 PCL 27 
15 ASTO 86 63 RCL 01 a ai sal ne, 2 ROL OS 
16 *I" 64 xt2 perinch, insulation | 113 * 
17 ASTO 87 65 S10 23 | weight per inch, 114 + 
18 “SC* Fe a 24 poi section 115 ST+ 23 
19 ASTO @8 modulus are 116 RCL 27 
2% “SH em (seeies 17 $T# 24 
21 ASTO 89 69 x12 Pipe WPL is stored | !18 8 | Allowable span 
Pa 7 STO 22 in R23 and R24. 119 RCL 22 length based on 
3 ASTO 18 71 REL Al Water WPI is 129 * stress is calculated. 
24 “be 72 RCL 82 eo | Wt ROL 99 
25 ASTO 11 Ee stored in Ras, | 122 * 
26 7H Li Section modulus is 123 RCL 24 
27 ASTO 12 — eee 1247 | 
38 *Y° 76 kt2 125 24 
29 ASTO 13 ee 126 / 
ae ? 2 127 REL 8? 
31 ASTO 14 79 ST- 24 128 / 
= 88 xt2 129 SRT 
Basto 15 Si ST- 22 138 27.9 6 | Allowable span 
‘e ee que Peco 
35 ASTO 1 ss ‘ca 
a 2 i) ne 
3 ASTO 17 5 * 134 
8 “Ape 86 + 135 ROL 24 
39 ASTO 18 8? Rt2 136 7 
48 “EB 88 ST+ 26 137 324 
41 ASTO 19 39 PI im # 
42 "NO." 90 4 139 SORT 
43 ASTO 28 Se 148 S@RT 
44 “TI 92 ST# 23 141 XG¥?——| The two values of 
45 ASTO 21 93 ST 24 142 GTO 18 ome fo 
46 1.821 Input routine. 94 ST 26 13 ROT sna Pe 
4 STO 48 Specmpied brie| 20 HHOLBL 18 |S stored in 25 in 
48 FIX 3 progiain input 96 8 12 fie 
45¢LB each piece ofdataat| 9% / i i 
LA atime. When the | 98 STs 22 a Pe | 447 STO 2 
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Step! Key Key Comments St K 
Line Entry Code i Entry ot. scomaneails pi Bis — Comments 
ine ntry ode 
148 1.25 SE is calculated 197 1 Fi 
a is calculated and 
149 RCL 68 and stored in R26. | 19$ ST+ 38 stored in R28. Itis a “an 
y “* 199 RCL 18 then printed. 94g "=" 
: 20 
152 RCL 69 - nih 19 249 ACA 
153 ¢ 256 CF 12 
» 282 RCL 15 351 AC 
Ind + 263 RCL 21 ‘ 
155 $T0 26 204 - = “Hl 29 
156 "2=" P. ; The greater of FR 
157 ARCL 22 WA wee = ‘o 4 254 XY? and WM2 is stored 
158 PRA 255 GTO 26 in R29 and is used 
. 267 RCL 1? 256 ROY to calculate 
159 “hee 268 RCL 21 installation stress 
168 ARCL 23 289 - 25? STO 29 for the bolts. This 
161 PRA 218 RCL 16 258eLBL 28 value is printed. 
162 *L= 2s sh gts 
oye ae * “ $F 12 
164 ARCL 25 243 * 
165 PRA 214 STO 28 262 9 
166 "SEE" 215 ¥EO D om ACCHR 
167 ARCL 26 cele (epee | ce 
168 PRA 217 X¢=0? then |F4| is added = a 
169 ADY FI is calculated 218 GTO 15 to Fl + F2 + F3. 266 “INST 
178 CLA stored in R27, and| 219 CLE If FA is positive, it | 267 BCR 
171 XEQ B printed. 226eLBL 15 is not included. 268 CF 13 
172 STO 27 221 ABS 269 SF 12 
173 1 222 ROL 27 oma 
174 STO 36 223 + 2?i ACA 
175 RDK 224 STO 29 272 CF 12 
176 ¥EQ D 225 ADV Fis punted. 273 ROH 
177 1 F2 is calculated, 226 “FRE" FR=Fi+F2+ | 274 AC 
178 ST+ 38 summed into R27,| 22? $F 12 pe re= han 275 ADV 
179 4 and printed. 228 ACA 5 vi bs + F2+ 276 RCL 27 The greater of FRor 
198 RCL 22 299 CF 12 |F4|ifF4 <0.) 277 RCL 28 WM2 is added to 
181 2 238 ACY 278 RCL 29 = +F2+ 3+ 
182 RCL 26 231 AY 279 + = ete 
193 + 232 RCL 11 WM2 is calculated ed calculated sign. 
134 RCL 10 233 RCL 18 ona“perbolt” | 22! ReL 18 This value is used 
195 / 234 * basis. 282 / to determine 
oy fe) ti 
186 RCL 26 235 RCL 13 283 SF 12 perating ol 
187 / 236 # 284 9 
188 RCL 67 23? PI 285 ACCHR 
129 / 238 * 286 CF 12 
198 81+ 27 239 RCL 28 287 SF 13 
191 ¥E0 D |_ 246 / 288 “OPER 
192 1 F3 is calculated, 241 SF 12 od o 
193 5J+ 38 summed into R27, 242 “WHY 13 
194 XE0 C and printed. 243 ACA GM OF te 
195 ST+ 27 244 CF 12 WN? is printed. 5 i 
196 XEQ 245 2" 
: 294 CF 12 


4 
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| Comments Step/ Key Key Comments Step! Key Key Comments 
ne end ok bie Entry Code Line Entry Code 

235 RON 344 FIX 3 ne it 28 
236 ACK 345 ACA oe oy 
297 ADY 346 PRBUF a penal | 
238 aby cae is FH is the sum of 397 *F* Subroutine: 
299 1.5 Hydrotest pressure| 348 Hycentest Fi. and | a9-2F {6 F’a” is printed, 
408 RCL 86 is calculated and 349 SF 12 me 399 aca where “a” is 1, 2, 
Wi stored in R06. . 356 ACA a ath , 3, or 4. 
382 RCL 88 Hydrotest WP! is St CF 12 4 

stored in R23. F1 46) CF 12 
103 ¢ and F3 are 352 CLA cade 
384 RCL 89 recalculated and 353 FIX 9 4s AGL 2 
385 / stored in R28. 354 ARCL 28 a ae 
306 STO 06 355 ACA UF aE i 
36? RCL 24 356 ADY — 496 == 
308 STO 23 357 ADY Go to initializer. aa 
Shor ans 498 CF 12 
8 STO 28 359 GTO "BS" Sane pee 

ubTO . 
31 cr 28 ag . Calculates F1. ey oY 
313 SF 12 Hydrotest value of | 362 4 412 END. 
34 °Pe P is printed. 363 / 
315 ACA 364 RCL 18 
316 CF 12 365 X12 
3? SF 13 366 * 
318 “HT. 367 RCL 46 
319 ACA 363 * 
328 CF 12 369 2 
321 SF 12 378 RCL 11 
ped 371 + 
323 ACA 372 PI 
324 CLA 373 ¥ 
325 ARCL 86 374 RCL 19 
326 CF 12 375 # 
327 ACA 376 RCL 12 
328 PRBUF 377 * 
329 SF 12 Hydrotest value of! 379 pel 06 
338 “Wt W is printed. 379 + 
Bl ACA 390 + 
ae te 381 RCL 28 
333 SF 13 392 / 
34 HAT." pe til _— 
335 ACA 384eLBL C ubroutine: 
336 CF 13 385 RCL 23 Calculates F3. 
ee 386 RCL 25 
338 "=" 387 Xt2 
339 ACA 388 « 
348 CF 12 389 3 
te 338 / 
391 RCL 18 

443 ARCL 23 392 7 
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Chapter 6 


Fillet Weld Sizing 


Program HP-41CV-6 


Introduction: 


HP-41CV-6 is a program intended to aid the user in 
designing the size of fillet welds, the most common 
kind of welding used in steel design. The analysis used 
is based on the Line-area Method, which is discussed 
in Design of Welded Structures by Omer W. Blodgett. 
The program has nine basic weld shapes and uses di- 
mensions, stress allowables, and applied forces and 
moments provided by the user. The analysis provides 
the maximum force (resolved) on the weld and the 
recommended minimum weld size. 


Nomenclature: 
Nine pieces of data are provided by the user: 


d: Weld dimension along the X-axis (in) 
b: Weld dimension along the Z-axis (in) 
Sa: Weld allowable stress of weld (psi) 
FX: Force along the X-axis (Ib) 

FY: Force along the Y-axis (1b) 

FZ: Force along the Z-axis (Ib) 

MX: Moment about the X-axis (ft-lb) 

MY: Moment about the Y-axis (ft-lb) 

MZ: Moment about the Z-axis (ft-lb) 


All forces should be input with magnitude and sign. 
Alldimensions and reference coordinate axes are shown 
in figure 6.2. The output consists of six items: 


Fa: Force (resolved) per inch at Point A (Ib/in) 
Fb: Force (resolved) per inch at Point B (lb/in) 
Fe: Force (resolved) per inch at Point C (Ib/in) 
Fd: Force (resolved) per inch at Point D (Ib/in) 
FR: Maximum of the above forces (Ib) 

t: Minimum weld throat dimension (in) 


Method: 


The Line-area Method assumes the weld to be a di- 
mensionless line in the calculation of the size of the 


weld to be used. This method saves the designer from 
having to assume a weld size, calculate its area, cal- 
culate the maximum stress in the welded area, and de- 
termine if the chosen weld size is sufficient. Instead, 
the designer calculates the maximum force in the welded 
area, uses a maximum allowed stress for his welding 
material, and combines these with the known length 
of his weld to determine the weld size. 

HP-41CV-6 does all of this for the designer. The 
forces at extreme points of the weldshape are cal- 
culated, the weld “area” is calculated, the weld allow- 
able is input by the user, and the program calculates 
the recommended weld size. The resolved forces are 
calculated using the following four equations: 


( & Mica)! (2 Mca" 
Fa = + a: 
A Jw A Jw 


_— (ee eee 


A Jw A Jw 
FY MX a") 

+ (—+—— + 
A Swxl Swat 


A 
FY 2\'r 
+ — 

(E. A * Bw ~ Swab 


2 ee 
fis ((& n ice) : 2 is wees) 
A Jw A Jw 
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Tho recommended weld sive Is calculated using thin 
formula 


t= Fl¥($a)(0.707) 


The factor 0.707 is based on the convention that the 
Wold area is proportional to the throat dimension di- 
Vided by the xquare root of 2. 
Tho torma ured above are defined as followat 
Qh Diatance from the neutral axis to the left 
moxt part of the weldahape (in) 


Cx: Distance from the neutral axis to the right 
most part of the weldshapo (in) 
Cat: Distance from the neutral axds to the top of 
the weldshape (in) 
Czb: Distance from the neutral axis to the bottom 
of the weldshape (in) 
Swzt’ Section modulus of the weldshape above 
the neutral axia (in?) 
Swzb; Section modulus of the weldshape below 
the neutral axis (in’) 
Swxl Secton modulus of the weldshape to the 
left of the neutral axis (in?) 
Swxr Section modulus of the weldshape to the 
right of the noutral axis (in?) 
Jw Polor moment of inertia of the weldshape 
(in?) 
A: Weld “area” or total length of the weld (in) 


The program analyzes nine specific weldshapes: 


1; Two parallel equal-length welds along tho 
Xsaxis 
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21 A 90-depreo angle, from a cornor down and to 
the right 
3: Acchannel shapo, open end facing ‘to the right 


4: A rectangle shape 
1 A Tahape with a single wold across the top 
A T shape with a double weld across the top 


7 An shape with single welds across the top and 
bottom 

8 Anti shape with double wolds across the top and 
bottom 

9 A direular shape. This analysis includes an cl- 


liptically shaped weld. 


The equations and the characteristics of the weldshapes 
are from Design of Welded Structures by Omer W, 
Blodgett, Section 7.4, 

The chart on page 172 of this text is an enhanced 
version of Table 5 found in Suction 7.4 of Design of 
Welded Structures, page 7, At the bottom are the coordi 
nate axes used and the directions of b and d, 


Limitations: 


HP-41CV-6 will perform one or all of the weldshape 
analyses for any given set of input data, Once the data 
input routine begins, no data is carried over from the 
last dataset. Only English units may be used. The analy: 
sis cannot combine weldshapes, The weld size is In- 
tended for fillet welds only. The maximum resolved 
force is always used for the weld size, but the designer 
may elect to use any of the forces printed. Finally, the 
designer cannot choose a point to be analyzed. Only 
points located by the program are analyzed. 


Figure 6.1 Schematic of Weldshape Dimensions 
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SHAPE a 


qd? 


Figure 6.2 Basic Weldshapes 
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d 


Iso 


+ — b+ 


Keyboard Card Labeling 


Seq0be 
SBee2e8ea 
&#oaqageaea 


KEYBOARD 


— fii 
i 
i 
BAA eB 
i | 


DO HEwLtETI-PaCRKRARD AIC 


SYSTEM 
CONFIGURATION 
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Program Number _HP-41CV-6___ Title 


Step 


WOUNAUNULYWDHH 


aa 
NRO 


Instructions 


Read in magnetic cards. 

Initialize program. 

Input weld d dimension 

Input weld b dimension. 

Input weld allowable stress/inch (Sa). 


Input force on weld in X-direction (FX). 
Input force on weld in Y-direction (FY). 


Input force on weld in Z-direction (FZ). 
Input moment in X-direction (MX). 
Input moment in Y-direction (MY). 
Input moment in Z-direction (MZ). 
Select weldshape to be analyzed: 

A= PARALLEL 

B= ANGLE 

C= CHANNEL 

D= RECTANGLE 

E= SINGLE T 

F= DOUBLE T 

G= SINGLE I 

H= DOUBLE I 

I= CIRCLE (ELLIPSE) 


User Instructions 


Fillet Weld Sizing 
Input Keystroke 
e 
d R/S 
b R/S 
Sa R/S 
FX R/S 
FY R/S 
FZ R/S 
MX R/S 
MY R/S 
MZ R/S 
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Display 


de 
b= 

Sa= 
FX= 
FY= 
FZ= 
MxX= 
MY 
MZ= 
SHAPE? 


Program Number __HP-41CV-6__ 


00 
01 

02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 


Registers, Flags, Assignments 


DATA REGISTERS 
Pointer/counter 


d 


i 


Title 


Fillet Weld Sizing 


Label Key 

PRL 11(A) 
ANG 12(@) 
CNL 13(C) 
REC 14() 
STEE 15) 
DTEE 21 (F) 
SWF 22(G) 
DWF 23(H) 
CRCL 24 () 
WLD -15(€) 


175 


DATA REGISTERS 


FLAGS 


Set Indicates 
Internal changes 


Internal changes 


ASSIGNMENTS 


Function 


Clear Indicates 


Key 


Examples of Analyses of Various Weldshapes 


d= 7.088 

b= 5.800 

Sa= 21,066, 608 
FR= 1,006.006 
FY= 2,586,008 
FZ=-5e8. 606 
MX= 1,008,668 
MY =-3, 080, 668 
MZ= 200.688 


PARALLEL 


Fa=1, 688.685 
Fb=1,274.981 
Fe=1,201.384 
Fd=1, 165.529 


FR= 1,274,981 
t= 6.086 


ANGLE 


Fa=2, 132.915 
Fo=1, 147.872 
Fo=2,872.966 
Fd=8. 088 


FR= 2,132.95 
t= 0.144 


CHANNEL 


Fa=1, 168.198 
Fb=982. 625 
Fc=879. 862 
Fd=1, 286.222 


FR= 1,286,222 
t= 6.68! 


RECTANGLE 


Fa=512.678 
Fb=694. 338 
Fc=668.793 
Fd=575. 851 


FR= 694.338 
t= 8.47 
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SINGLE T 


Fa=2, 981.204 
Fb=3, 286.613 
Fo=1, 439.587 
Fd=6. 688 


FR= 3,286,013 
t= 6.22! 


DOUBLE T 


Fa=1, 489.993 
Fo=1,771.968 
Fe=1,215.916 
Fd=8. 088 


FR= 1,771.968 
t= 0.119 


SINGLE 


Fa=1,482. 134 
Fb=1,772.239 
Fo=1,784,237 
Fd=1,588.793 


FR= 1,772,239 
t= 6.119 


DOUBLE I 


Fa=748,643 
Fb=939.727 
Fco=983.552 
Fd=888.646 


FR= 939.727 
t= 0.863 


CIRCLE 


Fa=585. 388 
Fo=839. 381 
Fc=772.913 
Fd=748.797 


FR= 839.381 
t= 8.857 


Sample Problem #1 


SHAPE = ANGLE 


d = 7.000"; b = 5.000” 

Weld “area” = 5 + 7 = 12" 

Swz (top) = [(4)(5)(7) + (7)?] + 6 = 31.500 

Swz (bottom) = [(7)7(4(5) + 7)] + [6(2(5) + 7] = 12.971 
Swx (left) = [(4)(5)(7) + (5)?] + 6 = 27.500 

swx (right) = [(5)2(4(7) + 5)] + [6(2(7) + 5)] = 7.237 
Jw = [5 + 7]! — 6(5)*(7)7] + [126 + 7)] = 92.958 

Cat = (7)* + (215 + 7)] = 2.042” 

Czb = 7 — 2.042 = 4.958” 

Cxl = (5)* + [2(5 + 7)] = 1.042” 

Cxr = 5 — 1.042 = 3.958” 


(= wen i (2 MY(Czt) ) 2 (= MX = Mz )) % (T1000 ( Same 2 
Fa = 7 a + + = 4 
A Jw A Jw A Swxr = Swat 12 92.958 


4 [C250 _ (=36000)¢2.042)]* | [2500 _ 12000 2400 i en 
12 92.958 2° 7.237 31.500}) “~~ ey 


i. (é = mica)? ‘ (@ nica" 2 (= , Mx Mm y= 1000 _ aa 
“WA Jw A Jw A Swxl_ Swat 12 92.958 


4 [<— ae . [ze _ 12000 2400 


2\"% 
t + = 1148.014 #/in 
12 92.958 12 27.500 31.500 


(= nce" (2 mice)? & MX Mz )\: (= a6 0 
Fe = || — + |— + ——] +|(— + = 


A Jw A Jw A Swxl Swzb 2 92.958 


aie (ge sat Ee 12,000 2400 
+ + ————— + | + 


2\'4 
= = 2072.306 #/in 
12 92.958 12 27.50 = 


A Jw A Jw A 


(= weeny (2 mcr" (= MX Mz I 
Fd = [(— + + (+ + =0 
A Swxr = Swzb 


Fmax = 2132.854 #/in 


t = 2132.854/21,000(.707) = 0.144" 
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Sample Problem #2 


SHAPE = RECTANGLE 


d = 7,000") b = 5.000” 

Weld “area” = 2(5 + 7) = 24.000” 
Swz (top) = (5)7) + (77/3 = 51.333 
Swz (bottom) = 51.333 

Sax (left) = ()(7) + (673 = 43.333 
Swx (right) = 48.333 

Jw = 6 + 7)°76 = 288.000 

Cat = 7/2 = 3.500" 

Cab = 3.500" 

Ci = 5/2 = 2.500" 

Co = 2.500” 


es (Be) 


i a Neca) 
A Jw 


A Jw 


24 288.000 24 


is = __(~36,000)(3.5) J m ee 7 


(—36,000)(2.5) 2 


(= MX MZ ‘i ( 1000 
+ |= = + 
A Swxr Swzt 24 


12000 


43.333 


2400 ]2\% 
t——— = 512.678 #/in 
51.333 


2 
i (= _ I ‘* ” a Mace) 


(= MX MZ yy" ( 1000 
+ + + = || — - 
A Swxl Swzt 24 


288.000 


288.000 


(—36,000)(2.5) f 


A Jw A Jw 
—500 —36, 5) 2 [2500 12000 2400 |?\* 
4. [(500 __(36.000)8.5) * 2500 oe |) = 694,330 #fin 
4 288.000 24 © 43.333 51.333 
000) |o ; 
(= ere (2 Nec) (= MX MZ y) ”2 (= 
Fe = {| — — +(—+ + |—+— = 
\A Jw A Jw A Swxr Swzb 24 
—500 —36,000)(3.5) ]2 [2500 12,000 2400 |\%* 
5 a 8 )(3-5) | = 668.794 #/in 
24 288.000 24 © 43.333 51.333 


(—36000)(2.5) ]? 
288.000 


Ri = (@ ss mee)! a [2 . mc 
A Jw A Jw 


: Ee , 36,000)(8.5) i R [= 
24 288.000 


Fmax = 694.332 #/in 


t = 694.332/21000(.707) = .047” 


(& MX ay)" 1000 | 
A Swxr Swzb ~ AL 24 


12000 


2400 


2\'4 
= 575.852 #/in 
51.333 
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(—36,000)(2.5) [ 
288.000 


HP-41CV-6 Title Fillet Weld Sizing 


Program: 


Sample Problem (Sketch if Desired) 


b= 5" aes 


— =] 
| = | 


FY Positive, out of 


i Da the page. 
Sa = 21,000 # per inch | 
FX = 1000 # MX = 1000 ft-lb 
FY = 2500 # MY = -3000 ft-lb 
FZ = -500 # MZ = 200 ft-Ib 
Input Function Display Comments 
e dé Initializes program. Prompts for the input of d. 

7 R/S = Stores d in RO1. Prompts for b. 

5 R/S Sa- Stores b in RO2. Prompts for Sa. 

21,000 R/S = Stores Sa in RO3. Prompts for FX. 

1000 R/S = Stores FX in RO4. Prompts for FY. 

2500 R/S FZ= Stores FY in ROS. Prompts for FZ. 

500 R/S = Stores FZ in R06. Prompts for MX. 

1000 R/S = Stores MX in RO7. Prompts for MY. 

3000 R/S MZ= Stores MY in RO8. Prompts for MZ. 

200 R/S SHAPE? Stores MZ in ROS. Prompts user for the shape of the 

(Printed output) | weld to be analyzed. 


B ANGLE 


Fa=2,132.915 The program shifts to the routine that calculates the 
Fb=1,147.872 inertia values and the neutral axes for the angle-shaped 
Fce=2,072.966 weld. Using the master subroutines, the forces at Points 
Fd=0.000 a, b, c, and d are calculated and printed. Fd is zero be- 
cause there is no weld at that point. The force at a is 
FR= 2,132.915 chosen as FR and t is calculated and printed based on that 


t= 0.144 number. 
D (Printed output) _| As above, the program shifts to the routines that 
calculate the inertias and neutral axes for a rectangular- 
shaped weld. 
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Inpat 


Fanction 


Display 


RECTANGLE 
Fa=512.678 
Fb=694.330 
Fo=668.793 
Fd=575.851 


FR=694.330 
t=0.047 


Comments 


The same master subroutines are used to calculate the 
forces at all points. For a rectangle there is obviously a 
Point d. The force at point b is chosen prepa ny 
and the value of t is calculated and printed based on 
value. 


SY 


Coding Form 


rrogram Number _HPAICV-6 Title Fillet Weld Sizing 
Sep! Key Ke: Comments 
Line Entry Code te bee as siaaiiaee Step! Key Key Comments 
a try Code Line Entry Code 
oLBL *WLD* nitialize pr 
8 ci Store aig a cd 2 palettes a 99 + 
G CLE input routine. Set ate ceil ai f npc 
er counter. 52 $10 18 waited | oe 
65 ASTO 61 53 RCL 1 ; 182 RCL at 
& “be 54 X12 163 #42 
07 ASTO 42 55 3 184 $T0 15 
pee 56 / 165 ST+ 12 
@9 ASTO 83 57 STO 12 {86 REL 82 
18 “FR 58 S10 13 187 #12 
1 ASTO 64 59 RCL G1 193 STO 13 
13 ASTO 85 61 + 18 4 
4 Fz" 62 STO 14 111 RCL 41 
15 ASTO 86 63 510 15 112 * 
16 “BX 64 RCL Of 113 ROL 2 
17 ASTO 97 65 Rte bd 
18 °HY" 66 RCL 62 115 4 
19 BSTO @8 67 #42 116 2 
9 “K2" 68 3 117 REL 81 
21 ASTO 69 one ae 
23 STO 98 71 RCL a eee 
24 FIX 3 hed oo 
a5eLBL “AA Input routine. Uses oe 123 4 ve 
26 CLA ROO as a pointer 47 
2 AREL IND @@ | and a counter. 75 S10 11 el 
a tes Prints all input | 76 RCL 61 
94 PROMPT data with alpha 772 126 RCL 41 
3 SF 12 = 78 4 a: 
31 aca 79 STO 16 128 LASTS 
WCF 12 9a STO 17 129 Rte 
B Ay 81 RCL 82 138 * 
34 STO IND 9 82 2 a 
abe 93 / 132 2 
% 16 69 84 STO 18 add 
3 cro “Aa 85 STO 19 134 REL 81 
30 AY a 86 REQ “FR: | Executiveforceand| 1 * 
39 SE 12 moments fox 87 ¥EQ “PR° printout routines. . z 
12 foot-Ib to inch-lb. | S8@LEL “AHG" | Angle-shapedweld) j3 = a 
41 S18 @7 89 “ANGLE | routines. 139 § 
42518 68 ee oe 
rl Bi 14 ST¥ 13 
43 STs 99 oh eS 141 ST? 
44 “SHAPE?- Prompts user for 92 RCL 62 142 a _ 
45 PROKPT weldshape. 93 + 1g REL a 
46¢LEL *PRL* Parallel weldshape 94 STO 18 143 RCL 82 
47 “PARALLEL: ‘| routine. 95 RCL 61 145 + * 
43 Pea = RCL @2 146 82 
49 EEL 4 ee 
61 aa 147 Xt? 
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Step) Key Key Comments Step! Key Key Comments Step) Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 

149 RCL 81 197 7 246 - 

149 X42 198 + 247 STO Lt 

158 RCL 82 199 STO 12 248 RCL @1 

151 Rt2 208 STO 13 249 2 

152% 261 2 250 / 

153 6 262 RCL OL 251 STO 16 

154 ¢ 203 RCL 82 252 STO 17 

155 - 284 + 253 RCL @2 

156 12 265 + 254 2 

157 / 286 RCL @2 255 + 

158 RCL 81 207 Xt2 256 RCL 61 

159 RCL 62 268 + 257 + 

168 + 289 3 258 RCL 02 

161 7 218 / 259 Xt2 

162 $10 11 211 STO 14 268 XY 

163 RCL @t 212 2 261 / 

164 ROL 62 213 RCL al 262 STO 18 

165 + 214 263 RCL 82 

166 2 215 ROL #2 264 OY. 

167 4 216 + 265 - 

168 ST/ 16 217 ROL 82 266 $10 19 

169 ST7 18 218 xt2 267 XEQ “FR Execute force and 
176 RCL @1 219 # 268 YEQ “PR: _| Printout routines. 
171 RCL 16 228 3 269¢LBL “REC’ | Rectangular 
{72 - eal / 276 “RECTANGLE” | shaped weld 
173 $10 17 222 RCL Ol 271 PRA RonuNeS: 
124 RCL 62 223 REL 62 272 RCL Al 

175 RCL 18 224 + 273 RCL G2 

176 - 225 / 274 + 

177 STO 19 Executive force 226 STO 15 275 2 

178 ¥EQ “FR _|routine. 227 RCL @1 276 + 

179 @ Zero out Fd. 228 REL 82 277 STO 18 

188 STO 23 Execute printout 229 > . 278 RCL @t 

181 YEO “PR>__| Foutine. 236 S10 26 279 RCL 82 

1824LBL “CNL |Channel-shaped | 231 ROL 82 280 * 

123 “CHANNEL weld routines. 232 + 981 ENTERt 

184 PRA = ra 282 ENTERt 

185 RCL 6 “1 _ 283 RCL a! 

186 RCL 62 3 284 x42 

197 2 236 / 285 3 

198 237 RCL 26 one 7 

199 + 238 t2 287 + 

198 STO 18 239 RCL 82 288 STO 12 

191 RCL 6! 246 Kt2 289 STO 13 

192 RCL 92 eat + 298 RDN 

193 242 RCL 26 291 RCL a2 

194 RCL 6! 243 RCL 82 292 x42 

195 ¥42 244 + 293 3 

196 6 245 / 294 7 
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wp Key Key 


Lee Entry Code 


yt 

188 STO 14 
27 $10 15 
299 RCL 81 
299 RCL 82 
Net 
MI 

We 4K 
103 6 
we 

385 STO 11 
306 RCL 61 
387 2 

388 7 

309 STO 16 
310 STO 17 
311 RCL 62 
322 
337 

34 STO 18 
U5 S10 19 
316 XEQ “FR 
31? KEQ “PR° 


SISLBL *STEE* 
319 “SINGLE T+ 
328 PRA 
Wt RCL 81 
22 2 

13 + 

324 RCL 42 
325 + 

326 STO 18 
327 RCL al 
X28 RCL 92 
329 4 

338 2 

Rl + 

332 RCL OL 
333 Xt2 
4 + 

335 3 

R / 

B? S10 12 
38 RCL 61 
39 ENTERt 
MG ¢ 

HI RCL 02 
2 2 
Mya 


Comments Dlepr ney ney Comments Step/ Key Key Comments 
Line Entry Code Line Entry Code 
344 RCL 81 393 RCL 82 
345 + 394 2 
346 + 395 / By setting Flag 1 
347 STO {1 396 STO 1é the program will 
348 3 397 STO 19 return after 
349 7 393 SF Ot calculating Fa and 
358 RCL G1 399 KEQ “FR* _ 
351 RCL 82 464 Calculate Fc. Mx is 
352 + 481 STO 13 zeroed out at this 
353 / 462 $1019 | Point. 
354 STO 13 403 RCL 87 
355 RCL 92 464 STO 31 
356 Kt2 465 
357 6 446 STO 97 
358 7 467 XEQ “FR2° 
359 S10 14 482 RCL 31 Zero out Fd. 
, 366 $70 15 499 STO 97 Return Mx to R07. 
361 RCL 11 419 8 Print results. 
362 EXTERt 411 STO 23 
363 3 412 XEQ “PR 
Besciitesforce and 364 7 4134LBL °DTEE* eae tee 
printout routines. “ig 61 = ci pe | sachape 
we | 367 RCL 82 416 RCL al 
routines. 368 RCL 41 417 RCL 62 
369 2 418 + 
378 * 419 2 
37 + 420 * 
372 / 421 STO 18 
373 RCL 82 422 RCL a1 
374 3 423 RCL 42 
375 Yth 424 4 
376 12 425 + 
37? 7 425 + 
378 + 42? ENTERt 
379 STO iL 428 EXTERt 
388 RCL at 429 RCL al 
381 ¥t2 438 Rte 
382 RCL @l 431 + 
383 2 432 3 
384 ¥ 433 7 
385 RCL 82 434 STO 12 
386 + 435 RIN 
387 7 436 RCL Ot 
388 S10 16 437 + 
389 RCL 81 439 LASTS 
398 ROY 439 3 
351 - 448 tk 
392 STO 1? 441 + 
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Step! Key Key Comments Step/ Key Key Comments Step} Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
442 ROL 82 491 $10 17 548 RCL 82 

483 6 492 RCL 62 541 RCL 81 

4dq 2 493 2 542 xt2 

445 RCL OI 494 7 Set Flag 1. 543 * 

446 3 495 STO 18 Calculate Fa and 544 3 

447 496 STO 19 545 x 

448 + 497 SF Ol 546 + 

449 7 498 XEQ “FR 547 RCL Ot 

458 STO 13 499 8 Calculate Fe, 548 3 

451 RCL 2 568 STO 18 549 YtX 

452 842 581 STO 19 550 + 

453 3 582 RCL @7 551 6 

454 7 5@3 STO 31 552 / 

455 STO 14 5a4 @ 553 STO 11 

456 STO 15 585 STO 87 554 RCL 81 

457 RCL @l 586 XEQ “FR2* 555 2 

458 3 507 RCL 31 Zero out Fd. 556 7 

459 Yt 508 STO a7 Return Mx to RO?.| 57 org 16 

466 RCL 62 509 8 558 STO 17 

461 4 518 STO 23 559 RCL 62 

462 * Sif XEQ "PR" 560 2 

463 RCL 81 S12#LBL “SHF* |Single I weldshape] 5¢1 

464 + 513 “SINGLE I* | routines. 562 STO 18 

465 3 914 PRA 563 STO 19 

466 6 515 RCL 41 564 XEQ “FR Execute force and 
467 7 516 RCL 82 565 XEQ "PR° printout routines. 
468 RCL Gt a? + 566¢LBL “DHF-~ | Double I shaped 
469 RCL 62 518 2 567 “DOUBLE I* | weld routines. 
478 + 519 + 568 PRA 

4717 528 STO 18 569 RCL al 

472 RCL @2 S21 RCL @1 578 2 

473 3 522 RCL 82 be 

474 YH = 572 RCL 62 

475 6 524 RCL 61 i 4 

476 7 525 ¥t2 pe 

477 + ah 575 + 

47 STO M1 ce 576 STO 18 

479 RCL 61 577 RCL at 

430 42 529 STO 12 oma ‘eel Ge 

#81 2 538 STO 13 ates 

482 / 531 RCL 82 pe 

483 RCL 8! 382 Bt2 581 » 

484 RCL 82 582 RCL 

485 + 503 Kt2 

2 535 S70 14 aid 

487 $10 16 o $10 : 585 / 

488 RCL 81 oi REL 6 586 + 

439 KY 538 3 587 STO 12 

496 - 339 Ytk 588 STO 13 
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step! Key 


589 RCL 62 
598 Kt2 
591 1.5 
592 / 

593 STO 14 
594 STO 15 
595 RCL 62 
596 3 

597 YtX 
598 2 

599 + 

668 RCL 62 
661 RCL Bt 
602 kt2 
663 + 

664 6 

605 # 

606 + 

607 RCL 81 
603 3 

603 Ytx 
610 + 

61 6 

612 / 

613 STO 11 
614 RCL 81 
615 2 

616 / 

617 STO 16 
618 S10 17 
619 RCL a2 
628 2 

621 7 

622 STO 18 
623 STO 19 
624 XEQ “FR 
625 XEQ “PR° 


Key 
Line Entry Code 


Comments 


Execute force and 
printout routines. 


6260LBL *CRCL* 
62? “CIRCLE* 
628 PRA 

629 RCL 82 
638 PI 

631 4 

632 2 

633 / 

634 1 

635 RCL 81 
636 RCL 82 
637 7 


Circle or ellipse 
shaped weld 
routines. 


Step/ Key Key Comments Step) Key Key Comments 
Line Entry Code Line Entry Code 
638 + ers) 
648 STO 18 639 S10 16 
641 RCL 62 698 STO 17 
642 2 691 RCL 99 | Zero out Mz at the 
643 7 692 S10 3 Z-axis (points aand 
644 Kt2 693 @ b). Set Flag 1. 
645 PI 694 STO 49 Calculate Fa and 
646 * 695 SF Gf 
647 4 696 KEQ “FR 
648 / - r 697 RCL 31 Return Mz to R09. 
649 STO 14 693 STO 89 Zero out Mx at 
656 STO 15 699 RCL 8! hi C. Calculate 
651 RCL Al 700 2 : 
652 * 781 / 
653 RCL 82 762 S10 16 
654 7 763 STO 17 
655 3 784 8 
656 RCL 91 765 STO 18 
657 RCL 82 766 STO 19 
658 / 767 RCL 97 
659 + 763 STO 31 
660 + 769 @ 
661 STO 12 716 STO 47 
662 STO 13 711 REG “FR2° 
663 RCL @1 712 SF 62 Calculate Fd using 
664 2 713 KEQ “FRY | “FR” with Flag 2 
665 / 714 STO 23 (See 
666 * 715 RCL 31 Return Mx to RO7. 
667 STU It 716 STO 97 Print results. 
668 RCL Bl | 717 XEQ “PR: 
669 3 7184LBL “FR* Force Fa and Fb 
676 * 719 RCL @4 subroutine. 
671 RCL @2 728 STO 26 
672 / 72t RCL €5 
673 1 722 S10 27 
674 + 723 RCL 46 
675 ST*# 14 724 STO 28 
676 ST# 15 725 RCL 88 
677 RCL 14 726 RCL 11 Calculate Fa. 
678 RCL 62 120 Z 
679 2 728 STO 29 
680 / 729 RCL 18 
681 ¥ 738 ST/ 26 
682 ST+ 11 731 ST/ 27 
683 RCL @2 732 ST/ 28 
684 2 733 RCL 26 
685 7 734 RCL 29 
686 STO 18 735 RCL 19 
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Step} Key Key Comments Step! Key Key Comments Step} Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 

736 * 785 + 834 Kt2 

737 + 786 Xt2 835 ST+ 30 

238 Xt2 787 RCL 30 836 RCL 27 

739 STO 36 788 + 837 RCL 87 

248 RCL 28 789 SQRT 838 RCL 15 

74L RCL 29 798 STO 21 Store Fb in R21. 839 / 

242 RCL 16 791 F520 81 | Retumif Flaglis | 846 - 

243 & 792 RTN set. 841 RCL 89 

244 ~ 793¢LBL “FR2* | Force Fe and Fd 842 RCL 13 

745 Kt2 794 RCL 26 subroutine. 943 7 

246 ST+ 38 795 RCL 29 844 - 

247 RCL 27 796 RCL 18 845 X42 

248 RCL 67 797 * 846 RCL 30 

749 RCL 15 798 - 84? + 

258 7 799 Xt2 848 SORT 

a1 - 806 STO 38 849 STO 23 Store Fd in R23 and 
72 RCL 89 881 RCL 28 850 RTH return. 

753 RCL 12 882 RCL 29 Calculate Fe. S51¢LBL “PR* | Printout ' 
754 7 $83 RCL 17 852 CLA subroutine. Print 
255 + $04 * 953 ALY Fa, Fb, Fe and Fd. 
756 Xt2 885 + 954 CF 12 

757 RCL 38 = ie ‘ 955 "Fas" 

756 + is set 856 ARCL 28 

759 SORT a ay ; 808 RCL 27 957 PRA 

768 FS2C 82 storing the 869 RCL 8? 858 CLA 

761 RTN calculated force. $18 RCL 14 959 "Fb=" 

762 STO 28 Store Fa in R20. B11 7 866 ARCL 21 

763 RCL 26 812 + 861 PRA 

764 RCL 29 813 RCL 69 862 CLA 

765 RCL 18 814 RCL 12 363 “Foe 

766 * 815 / 864 ARCL 22 

76? - 816 - 865 PRA 

768 xt2 a1? Kt2 866 CLA 

769 STO 38 818 RCL 38 867 “Fd=" 

778 RCL 28 Calculate Fb. 819 + 868 ARCL 23 

771 RCL 29 828 SRT Store Fe in R22. 369 PRA 

772 RCL 16 821 STO 22 878 CLA 

773 + 822 RCL 26 871 ADY 

774 - 823 RCL 29 Calculate Fd. | 872 RCL 26 Choose greater of 
775 Kt2 824 RCL 19 873 RCL 21 Fa and Fb. 

776 ST+ 38 825 * 874 XY? 

777 RCL 27 826 + 875 GTO 11 

778 RCL 87 827 RtZ 876 XOY 

773 RCL 14 828 S10 36 877eLBL 11 Choose greater of 
728 7 829 RCL 28 878 RCL 22 last decision and 
721 + 838 RCL 29 879 XY? Fe, 

782 RCL 89 831 RCL 17 60 GTO 12 

783 RCL 12 832 # 881 XOY 

784 / 933 + 882¢4LBL 12 
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sep) Key Key 
Line Entry Code 


Comments 


Step/ Key Key 
Line Entry Code 


Comments 


Step/ Key Key 
Line Entry Code 


Comments 


G83 RCL 23 
884 ¥DY? 
$65 G10 13 
O86 KOY 


Choose greater of 
Fd and last 
decision. 


SO7OLBL 13 
888 ST0 24 
999 SF 12 
098 *FR=* 
891 ACA 
092 CF 12 
993 ACK 
894 ADY 
895 RCL 43 
896 / 

897 2 

098 SORT 
999 ¢ 

900 STO 25 
961 SF 12 
902 SF 13 


985 CF 13 
966 CF 12 
987 ACK 
968 ADV 
989 ADY 
918 SF 12 
SU STOP 
912 EXD 


Print largest 

force as “FR”. 
Calculate and print 
Bs da 


STOP 
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Chapter 7 


Shell Stresses From Externally 
Applied Loads on Welded 
Attachments 


Program TI-59-7 


Introduction: 


TI-59-7 performs an analysis of the stresses in a cylindri- 
al shell caused by external loading through a welded 
attachment. The source equations are from WRC-198 by 
Dodge, Rodabaugh, and Moore. The program will ana- 
lyze a rectangular or a circular attachment for bearing 
loads, bending moments, shear forces, and torsional 
moments. The output consists of two sets of stresses: 
Dodge's original analysis and the modified analysis, 
applied to the Primary Stress Indices Equations from ASME 
Section Il. 


Nomenclature: 


Twelve pieces of data are used by the program to per- 
form the analysis: 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 


PAD: Pad thickness (in) 
LT: Rectangular attachment transverse length 
(in) 
LL: Rectangular attachment longitudinal length 
(in) 


Outside diameter of circular attachment (in) 
R: Radial or axial thrust load (Ib) 
TS: Transverse shear load (Ib) 
LS: Longitudinal shear load (Ib) 
ML: Longitudinal moment (ft-lb) 
MC: Circumferential moment (ft-lb) 
MT: Torsional moment (ft-lb) 


The output consists of two sets of data: 


SR: Stress due to radial load (psi) 
SL: Stress due to longitudinal moment (psi) 


SC: Stress due to circumferential moment (psi) 

S1: Shear stress due to transverse shear load (psi) 

$2: Shear stress due to longitudinal shear load 
(psi) 

ST: Shear stress due to torsional moment (psi) 


Each set of data has the same identifiers. 


Method: 


The equations used by the program are from Welding 
Research Council Bulletin #198, by Dodge, Rodabaugh, 
and Moore. While the specific equations used are listed 
here, it is suggested that the entire article be read for 
a full understanding of the method: 


Cy* = 12.0(r/t) (mn) Equation la for rectangular 


analyses 


Cr* = 18.0(r/t)4(m)'*4 Equation 1a for circular 


analyses 
Cyt = 1.20(r/t)74(q)*4 Equation 1b 
Co* = 1.80(r/t)(n)#° Equation 1c 


1 = —(X1cos6 + Yisiné) 

- = (X1sin@ — Y1cos@)?_ Eq.1d 
X1 = Xo + log(Bi) Equation le 
Y1 = Yo + log(B2) Equation 1f 


SR = C;* (RV/Ap Equation 2a 
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SL =(C,"(ML)/Zp Equation 2b ae MT 
t(LT)(LL)(I + Le/Ldy/2 


Where Ld is the greater of LT and LL and Lec is the 
lesser. 


Equation 12 
SC = Cc*(MC)/Zp Equation 2c 


where 


Ap = Metal cross sectional area of pipe (in’) 
Zp = Section modulus of pipe (in°) Sie TS 
t = Pipe mean diameter (in) ~ m@(COD)(PAD + T)/2 
t = Pipe wall thickness at attachment, including pad 
thickness (in) LS For 


Equation 10 


82 = ——a an = Equation 11 circular 
Load 8 Ao Xo Yo m(COD)(PAD + T)/2 attachments 
R 40 22 0 0.05 Nar 
ML 50 2.0 —0.45 —0.55 = Equation 12 
MC 40 18 -0.75 -0.60 5™= TcopPAD+ Tz “aHon 
B, = UT for rectangular attachments SR’ = Br (E} 
2r A 


LL 
pa Or rectangular attachments SL’ = By (4) From Equation 21 


IL, 
COD 


Bi = B= for thrust loading only, circular (“| 
attachments SC’ = Be Zc. 
IC. 
COD CoD ' 
Bi = B2 = * ( - oP) ie Ce a The first output data set is based on Dodge’s original 
” crewan eae paper, which calculated the stress based on the section 
: modulus of the pipe. The program uses all of Equations 
Cy = SR/(R/A)) Equation 3a 1 and 2 and Equations 10, 11, and 12 for this data set. 
. The second data set is based on the contributions of 
C.-= SL(MLIZ;,) Equation 3b Rodabaugh and Moore, who adjusted the stresses so 
F that they are based on the section modulus of the welded 
Ce = SC(MC/Zjc)_ Equation 3c lug. This second set was intended to be added to the 
‘ Primary Stress Indices outlined in ASME, Section III, 
Ay = 2(LT)(LL) Equation 4a Jar attachments, Pa‘agraph NB 3652. This data set uses all of Equations 
a nL = COD?) ” 3 and 4 to adjust the stresses from data set 1 to get 
5 ‘on 4b the stresses found in Equation 21. Equations 10, 11, and 
Zi = S/3(LT(LL)’ | Equation 12 are also part of the second data set. 
‘ The following is a comparison of the two data sets 
Zic = SI3(LT)(LL) Equation 4c with an identical aidight babtianed by a mainframe 
computer using the equations found in Welding Re- 
Br = 2/3(Cr) search Council Bulletin #107: 
By = 23(C,) Found on page 32, WRC-198 
Be = 2/3(Cc) RECTANGULAR ATTACHMENT 
SR SL SC S182 ST 
ia eeaienct 613 17,527 22,230 167 167 ***  WRC-107 
2LT)t 558 22,459 36,591 167 167 4000 WRC-198 
‘s For Dataset | 
$2 = eT Equation 11 rectangular 372 14,972 24,395 167 167 4000 WRC-198 
(LL)t attachments Dataset 2 
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CIRCULAR ATTACHMENT 
8k SL SC S1 $2 ST 
XN -20,257 29,728 198 198 1898 WRC-107 


8 31,513 58,084 198 198 1898 WRC-198 
Dataset 1 


25 21,009 38,721 198 198 1898 WRC-198 
Dataset 2 


The output of WRC-198 for SR, SL, and SC represent 
the maximum membrane and bending stress in the 
welded attachment. 


Limitations: 


Theanalyst must be careful which data set is to be used. 
Dataset 1 is intended to be a stand-alone stress value for 
the pipe at the point of attachment, not regarding the 
internal pressure stresses. Dataset 2 is intended to be 
added to all other stresses calculated for the point of 


attachment by independent means and then compared 
with the allowables, as presented in Paragraph NB3652 
of ASME Section III. 

Each execution of the program must include a com- 
plete set of input data. No data are carried over to 
the next analysis, although the program finishes each 
analysis by initializing the next. Although the au- 
thors of WRC-198 suggest that odd-shaped attachments 
should be analyzed by calculating equivalent shear ar- 
eas and moments of inertia, it has been this author's 
experience that using outside dimensions with Data- 
set 1 is sufficient. 

The authors of WRC-198 suggest certain size limita- 
tions for the welded attachments. They are: 


COD/OD < 0.3 for circular attachments. 


2 2 
Bi + fa < 1.0 for rectangular attachments. 
0.3, 12 


The following is a sketch defining the various loading 
conditions. 


Figure 7.1 Various Loading Conditions 
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Program Number _TI-59-7 


User Instructions 


Title _ Shell Stresses 


Instructions 
Read in magnetic cards (3). 
Initialize program. 
Input OD, 
Input T. 
Input PAD, 
Input LT (zero for circular analysis). 
Input LL (zero for circular analysis). 


Input COD (zero for rectangular analysis). 


Input R. 

Input TS. 

Input LS. 

Input ML. 

Input MC. 

Input MT. 

Execute program: 
For circular analysis 
For rectangular analysis 
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Keystroke 
CLR 


QW PPPOE >>> >>> mM 


Display 
1, 2, and 3 
0 
OD 
tT 
PAD 
LT 
LL 
COD 
R 
TS 
LS 
ML 
MC 
MT 


0 
0 


Data Register Contents 


REGI- REGI- 
STER DATA STER DATA 
00 | IND 30 log (Bz); Y1 
ol | IND Tai log (By); XI 
v2 | IND 32 | Jog (By); YI 
HW lop wl 
L& T 35__| 331316 
06 | pap 36 | 2737 
v7 or a | oi 
08 |p 38 | 153216 
0 | cop | Bs 
0 IR 40 | 3736 
41 | 2736 
| 2 | soy 
| | oe DATA STORED ON 
ea 3037 MAGNETIC CARD 
(side 3) 
0.45 
0.75 
1 
® raerotmremn | ® | 4 
m0 pe a 0.60 
| 
Q 
40 
22 
ae 20 
= (By); X1 i aa cos 1.54 
logy: Yt 88 fa 
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Shell Stresses from External Loads on Welded 
Attachments: WRC-198 


This is an example of a rectangular attach- 
ment. 


Pipe outside diameter (in) 

Pipe wall thickness (in) 

Pad thickness (in) 

Rectangular attachment transverse length (in) 
Rectangular attachment longitudinal length (in) 
Outside diameter of circular attachment (in) 
Radial or axial thrust load (Ib) 

Transverse shear load (Ib) 

Longitudinal shear load (1b) 

Longitudinal moment (ft-lb) 

Circuinferential moment (ft-Ib) 

Torsional moment (ft-Ib) 


Stress due to radial load (psi) (Eq. 2a) 

Stress due to longitudinal moment (psi) (Eq. 2b) 
Stress due to circumferential moment (psi) (Eq. 2c) 
Transverse shear stress (psi) (Eq. 10) 

Longitudinal shear stress (psi) (Eq. 11) 

Torsional moment shear stress (psi) (Eq. 12) 


Stress due to radial load (psi) (Eq. 21) 

Stress due to longitudinal moment (psi) (Eq. 21) 
Stress due to circumferential moment (psi) (Eq. 21) 
Transverse shear stress (psi) (Eq. 10) 

Longitudinal shear stress (psi) (Eq. 11) 

Torsional moment shear stress (Eq. 12) 


For rectangular attachments, the value COD should be zero. 
For circular attachments, the values LT and LL should be zero. 
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RECTANGULAR ANALYSIS 


OD = 12.75” R = 100 lb 

T = 0.375" TS = 250 Ib 

PAD = 0.25” LS = 300 lb 

LT = 3.5" ML = 100 ft-lb 

LL = 2.0" MC = 200 ft-lb 
MT = 300 ft-lb 


Ap = (12.75—0.375)(0.375)PI = 14.5790 in? 
Zp = (12.75) — (12.00)* (PI)/(OD)/32 = 43.8173 in? 
t= (12.75 — 0.375)/2 = 6.1875 in 
By = 3.5/(2/6.1875 = 0.2828 
By = 2.0/(2)/6.1875 = 0.1616 
X1 = 0 + log(.2828) = —0.5485 
YI = 0.05 + log(.1616) = —0.7415 
1 = —((—.5485)(cos40) + (—.7415)(sin40)) 
minus 1/2.2((—.5485)(sin40) — (—-7415)(cos40))? 
= 0.8758 
Cy" = 12(6.1875/.625) (.8758)'"54 = 42.4318 
SR = 100(42.4318)/(14.5790) = 291.0473 


X1 = -0.45 + log(.2828) = —0.9985 
Y1 = 0.55 + log(.1616) = —1.3416 
1 = —((—.9985)(cos50) + (—1.3416)(sin50)) 
minus 1/2.0((—.9985)(sin50) — (—1.3416)(cos50))? 
= 1.6648 


Cy* = 1.2(6.1875/.625)74(1.6648)*74 = 73.3172 
SL = 1200(73.3172)/43.8173 = 2007.8968 


X1 = —0.75 + log(.2828) = —1.2985 
Y1 = -0.60 + log(.1616) = —1.3916 
1 = —((—1.2985)(cos40) + (—1.3916)(sin40)) 
minus 1/1.8((—1.2985)(sin40) — (—1.3916)(cos40))? 
= 1.8595 
Cet = 1.8(6.1875/.625)” (1.8595)? = 116.7534 
SC = 2400(116.7534)/43.8173 = 6395.2397 
S1 = 250/(2)/(3.5)/(.625) = 57.1429 
$2 = 300/(2)/(2.0)/(.625) = 120.0000 
ST = 3600/((3.5)(2.0)(.625)(1 — (2.0/3.5)\/2) = 1047.2727 


Ay = 2(3.5)(2.0) = 14.0000 

Ziv = 4/3(3.5)(2.0)? = 18.6667 

Zic = 4/3(3.5)7(2.0) = 32.6667 

Cy = 291.0473/(100/14.0000) = 40.7466 
Cy = 2007.8968/(1200/18.6667) = 31.2340 
Ce = 6395.2397/(2400/32.6667) = 87.0464 
Br = 2/3(40.7466) = 27.1644 

By = 2/3(31.2340) = 20.8227 

Bc = 2/3(87.0464) = 58.0309 

SR’ = 27.1644(100)/14.0000 = 194.0314 
SL’ = 20.8227(1200)/18.6667 = 1338.5998 
SC’ = 58.0309(2400)/32.6667 = 4263.4903 
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Shell Stresses from External Loads on Welded 
Attachments: WRC-198 


This is an eample of a Greular attachment. 


Pipe outside diameter (in) 

Pipe wall thickness (in) 

Pad thickness (in) 

Rectangular attachment transverse length (in) 
Rectangular attachment longitudinal length (in) 
Outside diameter of drcular attachment (in) 
Radial or axial thrust load (Ib) 

Transverse shear load (Ib) 

Longitudinal shear load (Ib) 

Longitudinal moment (ft-Ib) 

Circumferential moment (ft-Ib) 

Torsional moment (fi-Ib) 


Stress due to radial load (psi) (Eq. 2a) 

Stress due to longitudinal moment (psi) (Eq- 2b) 
Stress due to Grcumferential moment (psi) (Eq- 2c) 
Transverse shear stress (psi) (Eq- 10) 

Longitudinal shear stress (psi) (Eq. 11) 

Torsional moment shear stress (psi) (Eq. 12) 


Stress due to radial load (psi) (Eq- 21) 

Stress due to longitudinal moment (psi) (Eq. 21) 
Stress due to Grcumferential moment (psi) (Eq- 21) 
Transverse shear stress (psi) (Eq. 10) 

Longitudinal shear stress (psi) (Eq. 11) 

Torsional moment shear stress (Eq. 12) 


For rectangular attachments, the value COD should be zero. 
For Graular attachments, the values LT and LL should be zero. 
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Sample Problem 


TI-59-7 
Program: 
OD = 12.75" 
T = 0375" 
PAD = 0.25” 
LT = 3,8" 
LL = 2.0" 
R = 100 1b 
TS = 250 Ib 
LS = 300 Ib 
ML = 100 ft-lb 
NC = 200 ft-lb 
MT = 300 ft-lb 
Key 
Step Input Stroke Display Printer Comments 
1 E 0 Initializes program. Loads pointer 
registers for input. 
2 12.75 A 12.75 12.75 OD | Stores OD in R04, prints. 
3 375 A 0.375 0.375 T | Stores T in ROS, prints. 
4 25 A 0.25 0.25 PAD | Stores PAD in R06, prints. 
5 3.5 A 3.5 3.5 LT | Stores LT in RO7, prints. 
6 2 A 2. 2. LL | Stores LL in ROS, prints. 
1 0 A 0. 0. COD | Stores zero in RO9, prints. 
8 100 A 100. 100 R | Stores R in R10, prints. 
9 250 A 250. 250. TS | Stores TS in R11, prints. 
10 300 A 300. 300. LS | Stores LS in R12, prints. 
ll 100 A 100. 100. ML | Stores ML in R13, prints. 
12 200 A 200. 200. MC | Stores MC in R14, prints. 
13 300 A 300. 300. MT | Stores MT in R15, prints_ 
aC Cc 0. 
291. SR | Sums the pad thickness and 
2007. SL | pipe thickness into one register, 
6394. SC | R06. 
S7. SI Calculates the shear areas for both 
120. $2 shear forces and the torsional 
1047. ST | moment. Stores them in R24, R25, 
and R26. These will later become 
194. SR | the shear stresses. 
1338. SL | Calculates the values of 8) and B> 
4263. SC | and stores them in R27 through 
57. S1_ | R32. These will later become the 
120. $2 | Xland Y1 values. The multiplier 
1047. ST | for the radial or axial thrust load is 
put into the test register. The 
program shifts to the main equation 
solver. 
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Key 

Step Input Stroke Display Printer Rann ae 
The values of X1 and Y1 are calcu - 
lated by adding the constants in 
memory to the calculated values of 
B, and By. The pipe metal area and 
section modulus are calculated and 
stored in R16 and R17, respectively, 
One at a time, the stress values for 
radial load, longitudinal moment, and 
circumferential moment are 
calculated, using the calculated 
values of X1 and Y1, and the 
constants stored in memory. Then 
the shear stresses are calculated. 


The first printout is performed. 
Then the stress values for SR, SL, 
and SC are adjusted to agree with 
Equation 21 of WRC-198: Then the 
second printout is performed. The 
program then reinitializes, and stops. 
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cuulilly rorm 


Program Number — 2159-7 __— Title Shell Stresses 
Loc Code Key Comments Loc Code Key Comments Key Comments 
go0 =6F6 LBL Initialize program. a1 a1 ect | R26. All areas are 
go. 15 E Set pointers. o61 39 cos - 4 | stored in reciprocal. 
002 O04 4 o62 85 + = 
os 42 STO 063. 73 RC# 2 
voy oc 900 64 02 a2 
005 03 3 065 65 x 
006 as 3 O66 3 RCs 
oor 42 STO O67 ot o1 
goe 01 ot 068 38 SIN PRD 
009 25 CLR 069 54 2 25 
g10. 91 RYS aro 94 4/- PRO 
Input routine O7i 75 «= 20 
(includes B’). Uses] G72 53 ¢ RCL | Calculates B, and 
013 72 STs |RO00 and RO1 as O72 72 RC# 02 | B» for thrust loads. 
pointers. o74 oo ao ~ | Stores (OD-t) in 
075 «45 x © |R20. B = Bi = Be 
076 ‘73 RC# RCL 
ar? of o2 Os 
avs 36 SIN _ 
Ore FS = C 


~oo 
Co ae 


Prints data with 
preset alpha labels. 


os4 Qi Oi 
085: 39 cos 
as6é S54 >) 
osr 33 xé# Stores log B in 
ass 55 + R27 and R30. Logs 
TT SI 089 73 RC# for B; and B for 
a4 eé LBL | Sets alpha labels oso. 603 6 «603 ae tes are 
O31 i? q' for output data. ogi 95 = 30 |calculated and 
= = 092 69 OP 111 1 | stored in R28, R29, 
033 49 RCL a93 20 20 75 -  |R30, and R31. 
a ie 034 69 OP 43 RCL |B = Bi = Be 
Re eS Re 095 21 21 OL ao: 
Se o96 69 OP ee 
a 097 22 22 6a =X 
43 RC 
oi oO 
Calculates X, and q 
Yi per WRC-198 for Main header for 
all cases. circular analysis. 4 
43 RCL a 
a5 05 & sT 
44 SUM Bs 28 
o6 06 66 h 
3 RCL bf 2 
09 a9 168 a 
35 17K | 169 32 
42 STO . 17 1 |CT multiplieris put 
24 24 | This section 71 8 Jin test register. 
42 STO | calculates the shear| 172 207 
= 25 25 |areas. Area for 3 61 GTO 
ai Calculates n per 42 STO | transverse shear is| 174 18 C! 
nse oe 47 | WRC-198. Uses 115° 26 26 Jin R24. 17576 LSL [Main control for 
059 °3 RC# | ROO, ROI, RO2, and) 116 49 PRD |Longitudinal shear} 176 i3 (rectangular 
058 Ot 0 | ROB as pointers. 117 26 26 |area is in R25. 177 43 RCL |analysis. 
054 f5 x 118 $9 qf |Torsionalmoment| 173 05 05 
7 72 RC# 119 65 x |shear area is in i7a 44 SUM 
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Loe Code Key Comments Key Comments Comments 
1Su_ Ase- 08 STO | Logs for B; and By 
i81 48 RCL |This section 28 |Jare stored in 
183 Q7 OF calculates the shear STO | memory. Log ; is 
r8s SS 1°N__Jareas. Transverse 2a | stored in R27, 
IS 32 shear area is 3 RCL |R28, and R29. Log 
ESS SS stored in R24. OS | Be is stored in 
288 a2 Longitudinal shear =~  |R30, R31, and R32. 
so0 0 8 area is stored in RCL 
188 R25. Torsional 20 
SS) momient shear area = 
RY 30 is stored in R26. All LOG 
131 areas are stored in STo 
1 = reciprocal. 3 
133 es 
1as ou 
135 es Z 
ie $10 ft 
1 [CT multiplier put i 
as : sre in test register. 2 0 
LBL |Main program. 16 
: C*  |Pointers are set PRO 
2 4 |for calculation of 1? 
3 5 |X,and Yj. RCL 
4 sto a 
5 oo mS 
6 2 a 
7 ae | 2 
8 STO = 
269 a1 ies 
270 06 6 PRU 
271 42 STO if : 
272 02 O02 2 |Sets pointers for 
2fo 10 E* 7 {calculation of 7. 
274 43 RCL |y is calculated 370 
275 20 20 |and stored in R20. oo 
276 55 + = 
277 02 2 i 
278 «55 + 370 
3 RC a: 
ite 3 
a 
sTo 
Q o2 
(OD — t) is stored Moments are = 
in R20. converted to in-lb. ai 
STO 
( a3 
RCL At Calculates stress 
04 YX due to radial load. 
- RCL |Stores SR in R21. 
> RCL Ss? | (Eq. 2a) 
05 Pipe metal area and a 
2 section modulus REL 
sTo are calculated. i Q 
20 Ap is stored in i 
= R16. Zp is stored in a 
LOG R17. 
STO + 
27 x 
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‘i 


Comments Loc Code Key Comments 


Calculates all | 
shear stresses. 
S1is in R24, $2 isin 
R25, ST is stored in 
R26. 


’ |Prints output data. 


Calculates stress 


45 x due to longitudinal 
372 43 RCL |moment loading. 
373 5& 58 Stores SL in R22. 
374 65) x 
375 43 RCL 
376-20) «20 
37?) 45 x 
sve 93 . 
379 OF Ff 
380 O04 4 
381 65 8 
aoe 01 I 
$93 S93 . 
384 02 2 
385 65 xX 
386 43 RCL 
387 13 «13 
338 55) + 
389 43 RCL 
390 lf «i? 
91°95 = 
392 «642 STO 
393.22 22 
39416 At Calculates stress at 
395 45 (YX Hn ae 
396 03 $ 
397 93 moment loading. 
393 O04 4 Stores SC in R23. and SC to NB 3650 
399 85 X (Eq. 2c) level and returns 
400 43 RCL to printing routine. 
401 20 20 (Eq. 21) 
402. 45 YX 
403 93 . 
404 09 9 
405 65 x 
406 43 RCL 
407 56 56 
408 65 x 
409 43 RCL 
410 14 14 
411 55 + 
4120 43 RCL Reset flags and go 
413 17 17 to initialing 
314095 s routine. 
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Shell Stresses from Extemal Loads on Welded 
Attachments: WRC-198 


Pipe outside diameter (in) 

Pipe wall thickness (in) 

Pad thickness (in) 

Rectangular attachment transverse Jength (in) 
Rectangular attachment Jongitudinal length (in) 
Outside diameter of circular attachment (in) 
Redial or ada] thrust Joad (Ib) 

Transverse shear Joad (Ib) 

Longitudinal shear load (Ib) 

Longitudinal moment (ft-Ib) 

Circumferentiz] moment (ft-Ib) 

Torsional moment (ft-Ib) 


Stress due fo radial] Joad (psi) (Eq_ 2a) 

Stress due to Jongitudinal moment (psi) (Eq. 2b) 
Stress due to drcumferential moment (psi) (Eq. 2c) 
Transverse shear stress (psi) (Eq- 10) 

Longitudinal shear stress (psi) (Eq. 11) 

Torsional moment shear stress (psi) (Eq- 12) 


Stress due to radial load (psi) (Eq- 21) 

Stress due to Jongitudinal moment (psi) (Eq. 21) 
Stress due to circumferential moment (psi) (Eq. 21) 
Transverse shear stress (psi) (Eq. 10) 

Longjtudinal shear stress (psi) (Eq. 11) 

Torsional moment shear stress (Eq. 12) 


For rectangular attachments, the value COD should be zero. 
For circular attachments, the values LT and LL should be zero. 
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m HP-41CV-7: Shell Str, 
progy4 L €sses From 
oad Ext 
S on Welded Attachments Mally Applied 


ction is of thi = 
In performs an analysis 0 € stresses in a 
piv Pon caused by extemal loading through 
"ipsa tachment. The source equations are from 
: wided 4 , Rodabaugh and Moore. The pro- 
esas  otyse a rectangular or a Greular attach- 
ooo wil ar g loads, bending moments, shear forces 

ie moments. The output consists of two sets 
oF s original analysis, and the modi- 
‘s, applied to the Primary Stress Indices Equa- 


ei ASME Section IIL 
pons 


are 12 pieces of data that are used by the program 
the analysis. They are: 


Pipe outside diameter (in) 

wall thickness (in) 
Pad thickness (in) 
Rectangular attachment transverse length 
in 
Ae angst attachment longitudinal length 
in 
Oe ler attachment outside diameter (in) 
Radial or axial thrust load (Ib) 
Transverse shear load (Ib) 
Longitudinal shear load (Ib) 
Longitudinal moment (ft-Ib) 
Circumferential moment (ft-Ib) 
Torsional moment (ft-lb) 


These 
io perform 
OD: 
T: 
PAD: 
LT: 


LL: 


COD: 
R: 
ST: 
SL: 
ML: 
MC: 
MT: 
The output consists of two sets of data: 


or Stress due to radial load (psi) 

ol Stress due to longitudinal moment (psi) 

oc Stress due to circumferential moment (psi) 
tts: Shear stress due to transverse shear load (psi) 
ais: ey stress due to longitudinal shear load 
Psi) 

Shear stress due to torsional moment (psi) 
Each set of data has the same identifiers. 


tt: 


Method- 

Tigiaacce 

Research reshd used by the program are from Welding 
eed Moore, Wit bulletin #198, by Dodge, Rodabaugh 
here, it ig * ile the specific equations used are listed 
full unde eed that the entire article be read for 
“standing of the method: 


Gy = OK 1 34 
2Gon L 
analyses a rectangular 
G* = 18 O(r't 64, = 
MT (n)) : 
Ce LIN) May a Ib 
Sc = L806) MP Eat 4 
Cc 
y= — * Y1sina) 
_ he (XIsing — Y1cosoy? Eq. 


X1 = Xo + log(By) Equation le 

11 = ¥o+ log{Bo) Equation 1f 

or = Ct (RY Ap Equation 2a 

ol = Cu"(MLYZp Equation 2b 

oc = Ce(MCVZp Equation 2c 

where 

Ap = Metal cross sectional area of pipe (in?) 
Zp = Section modulus of pipe (in?) 


x = Pipe mean diameter (in) 
t = Pipe wall thickness at attachment, induding pad 


thickness (in) 
Load i) Ao Xo Yo 
R eA) 22 0 0.05 
ML 50 20 —045 0.5 
MC 49 18 0.75 —0.60 
LT 
Bi = - for rectangular attachments 
LL ttachmentis 
Bo = oy for rectangular a’ 
B: = B2= COD |. thrust loading only, Groular 
, 2 attachments 
CoD x f1- con) for moment loading, 
Bi = Be= 5 2: | giscalan ations 


Cy = at/(RA;) Equation 3a 
C, = a)(ML/Z,,) Equation 3b 
Cc = oc(MCOZjc) Equation 3c 
A, = (LT)(LL) Equation 4a 
(For circular attachments, 
, LT = LL = COD/2) 
Zy, = 4/3(LT)(LL)* Equation 4b 


Zc = 4/3(LT(LL) Equation 4c 


Br = 23(Cr) 
By = 2(C,) Found on page 32, WRC-198 
Be = 2/8(Cc) 
TS 
Tst = LM Equation 10 
For 

tls = Equation 11 rectangular 

2( attachments 


MT 
t(LT)(LL)( + Lo/Ld)/2 
Where Ld is the greater of LT and LL and Lc is the 


lesser, 


tt Equation 12 


TS 5 
Equation 10 


*R(COD\(PAD + Ty2 
LS For 
ds = ———————— _ Equation 11 circular 
mCOD)(PAD + T)/2 ' attachments 
MT . 
ut = ———.——— > _ Equation 12 
a(COD){PAD + T)/2 
or (F) 
ar = ra 


The first output data set is based on Dodge's original 
paper, which calculated the stress based on the section 


modulus of the pipe. The program uses all of Equations 
1 and 2 and Equations 10, 11, and 12 for this data set. 
The second data set is based on the contributions of 
Rodabaugh and Moore, who adjusted the stresses so 
that they are based on the section modulus of the welded 
lug. This second set was intended to be added to the 
Primary Stress Indices outlined in ASME Section III, 
Paragraph NB 3652. This data set uses all of Equations 
3 and 4 to adjust the stresses from Dataset 1 to get 
the stresses found in Equation 21, Equations 10, 11, and 
12 are also part of the second data set. 

The following is a comparison of the two data sets 
with an identical analysis performed by a mainframe 
computer using the equations found in Welding Re- 
search Council Bulletin #107: 


RECTANGULAR ATTACHMENT 


or ol oc tts tis tt 
613. 17,527 22,230 167 167 *** WRC-107 
558 22,459 36,591 167 167 4000 WRC-198 
Dataset 1 
372 14,972 24,395 167 167 4000 WRC-198 
Dataset 2 

CIRCULAR ATTACHMENTS 

or al oc tts tis tt 
583 20,257 29,728 198 198 1898 WRC-107 
638 31,513 58,084 198 198 1898 WRC-198 
Dataset 1 
425 21,009 38,721 198 198 1898 WRC-198 
Dataset 2 


The output of WRC-198 for or, o1, and oc represent 
the maximum membrane and bending stress in the 
welded attachment. 


Limitations: 

The analyst must be careful which data set is to be used. 
Dataset 1 is intended to be a stand-alone stress value for 
the pipe at the point of attachment, not regarding the 
internal pressure stresses. Dataset 2 is intended to be 
added to all other stresses calculated for the point of 
attachment by independent means and then compared 
with the allowables, as presented in Paragraph NB3652 
of ASME Section III. 

Each execution of the program must include a com 
plete set of input data. No data are carried over to 
the next analysis, and the program does not initialize 
itself for the next analysis. Although the authors of 
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WRC-198 suggest that odd-shaped attachments should 
be analyzed by calculating equivalent shear areas 
and moments of inertia, it has been this author's experi- 
ence that using outside dimensions with Dataset 1 is 
sufficient. 

The authors of WRC-198 suggest certain size limita- 
tions for the welded attachments, They are: 


COD/OD < 0.3 for circular attachments. 


Bi\’ | (B2\” 
—] .+ |—] <1 For rectangular attachments. 
0.3 12 


The following is a sketch, defining the various Joading 
conditions. 


Figure 7.2 Various Loading Conditions 
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KEYBOARD 


Keyboard Card Labeling 


= =i. 
= =)— i= 
Seb) 


— =i =)—) 
| 
i — 
a 
BeBe & 


YSTEM 


Ss a 
CONFIGURATION 


CARD 


program Number 


Step 


WORIAUNEeD— 


eee 
wn oO 


WORIANSwWNM 


aa 
oR Se —) 


Instructions 


Circular Analysis 
Initialize Program. 
Input OD. 

Input T. 

Input PD. 

Input zero. 

Input zero. 

Input COD. 
Input A. 

Input ST. 

Input SL. 

Input ML. 

Input MC. 

Input MT. 


Rectangular Analysis 
Initialize program. 
Input OD. 

Input T. 

Input PD. 

Input LT. 

Input LL. 

Input zero. 

Input A. 

Input ST. 

Input SL. 

Input ML. 

Input MC. 

Input MT. 


HP-41CV-7 


vor mistructions 


Shell Stresses 
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Keystroke 


E 

R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 
R/S 


Display 


OD= 
J= 
PD= 
LT= 
LL= 
COD= 
A= 
$T= 
SL= 
ML= 
MC= 
MT= 


Data output 


OD= 
T= 
PD= 
LT= 
IL= 
COD= 
A= 
ST= 
SL= 
ML= 
MC= 
MT= 


Data output 


P Number __HP-41CV-7 


BFSeSRQGRARERLS 


See eee ep 
OBUNATDUP Ww 


Registers, Flags, Assignments 


DATA REGISTERS 


pe 4> gecag 


Shear area, ST 
Shear area, SL 
Shear area, MT 
Mean diameter/y 
LOGB1 

LOG £2 

LOG B1 

LOG B2 

Area 

Pipe section modulus 
0.0 

045 

0.75 

0.05 

0.55 

-0.60 

40 

50 

40 

2.2 

2.0 

18 

Factor for Ct 
IND 

IND 

IND 


Title _Shell Stresses 


DATA REGISTERS 


39 IND 
40 oA 
41 oL 
42 oC 
43 <7 
44 «ST 
45 SL 
46 
47 
48 
49 
FLAGS 
Init 
# s/c Set Indicates 
1 Cc Print first data set 
ASSIGNMENTS 
Label Key Function 
LS 15(@) 
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Clear Indicates 


Print second 


data set 


Key 


txamples of Analyses 


Rectangular 


OD= [2.758 


PD= 6.258 
LT= 3.508 
LL= 2.608 
COD= 6.988 
R= 168.609 


ST= 250.808 


SL= 388.688 
ML= 108.880 
MC= 200.688 


MT = 388.688 


PER EQ. 2 


FOR NB3652 


or=291. 

o 1=2, 887. 
oc=6, 394. 
art=1,847. 
arst=57. 
4sl=126. 


aor=194, 
o1=1,338. 
oc=4,263. 
vt=1,047. 
wst=37. 
wvsl=128. 
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Greular 


or=638. 
o 1=6, 382. 
oc=23,24%4. 
vt=1,139. 
Tst=198. 
7512277. 


FOR HB3E52 


or=425, 
o|=4, 282. 
oc=15,489. 
wt=1139. 
wrst=198, 
ws51=237. 


RECTANGULAK AWALTOID 


OD = 1277 R = 100 Ib 

T = 0.377" TS = 250 Ib 

PAD = 0.25" LS = 300 Ib 

LT =3.5" ML = 100 ft-lb 

LL =20° MC = 200 ft-lb 
MT = 300 ft-lb 


Ap = (12.75—0.375)(0.375)PI = 14.5790 in? 
Zp = (12.75)* — (12.00)* (P)/(OD)/32 = 43.8173 in? 
r = (12.75 — 0.375)/2 = 6.1875 in 
Bi = 3.5/(2)/6.1875 = 0.2828 
Bo = 2.0/(2)/6.1875 = 0.1616 
X1 = 0 + log(.2828) = —0.5485 
Y1 = 0.05 + log(.1616) = —0.7415 
1 = —((—-5485)(cos40) + (—.7415)(sin40)) 
minus 1/2.2((—.5485)(sin40) — (—.7415)(cos40))? - 
= 0.8758 
Cy” = 12(6.1875/.625)™ (.8758)!>4 = 42.4318 
or = 100(42.4318)/(14.5790) = 291.0473 


X1 = —0.45 + log(.2828) = —0.9985 
Y1 = —0.55 + log(.1616) = —1.3416 
1 = —((—-9985)(cos50) + (—1.3416)(sin50)) 
minus 1/2.0((—.9985)(sin50) — (—1.3416)(cos50))? 
= 1.6648 


Cy* = 1.2(6.1875/.625):74(1.6648)* 74 = 73.3172 
SL = 1200(73.3172)/43.8173 = 2007.8968 


X1 = -0.75 + log(.2828) = —1.2985 
Y1 = —0.60 + log(.1616) = —1.3916 
1 = —((—1.2985)(cos40) + (—1.3916)(sin40)) 
minus: 1/1.8((—1.2985)(sin40) — (—1.3916)(cos4) 
= 1.8595 
* = 1,8(6.1875/.625)-™ (1.8595)? = 116.7534 
oc = 2400(116.7534)/43.8173 = 6395.2397 
ast = 250/(2)/(3.5)/(.625) = 57.1429 
asl = 300/(2)/(2.0)(.625) = 120.0000 
at = 3600/((3.5)(2-0)(.625)(1 — (2.0/3.5))/2) = 1047.27 


A, = 2(3-5)(2.0) = 14.0000 

Zu. = 4/3(3.5)(2.0)? = 18.6667 

Zic = 4/3(3.5)7(2.0) = 32.6667 

Cr = 291.0473/(100/14.0000) = 40.7466 
Cy = 2007.8968/(1200/18.6667) = 31.2340 
Cc = 6395.2397/(2400/32.6667) = 87.0464 
Br = 2/3(40.7466) = 27.1644 

B, = 2/3(31.2340) = 20.8227 

Bc = 2/3(87.0464) = 58.0309 

or’ = 27.1644(100)/14.0000 = 194.0314 
ol’ = 20.8227(1200)/18.6667 = 1338.5998 
ot’ = 58.0309(2400)/32.6667 = 4263.4903 
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Sample Problem 
Shell Stresses 


pwsram: HPAICV-7__ Title 


Sample Problem (Sketch if Desired) 


OD = 12.75" 
T=0370" 
PAD = 0.25” 
LT = 3.5" 
LL=20 
R= 100 1b 
TS = 250 Ib 
LS = 300 Ib 
ML = 100 ft-lb 
MC = 200 ft-lb 
MT = 300 ft-lb 
Input Function Display 
E OD= 
12.15 R/S a 
375 R/S PAD= 
25 R/S LT= 
3.5 R/S LlL= 
2 R/S COD= 
0 R/S = 
100 R/S ST= 
250 R/S SL= 
300 R/S ’ML= 
100 R/S MC= 
200 R/S MT= 
300 R/S (Printed output) 
PER EQ. 2 
or=291. 
o1=2,007. 
oc=6,394. 
tt=1,047 
tst=57. 
tsl=120. 
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Comments 


Initializes program. Prompts for OD. 

Stores OD in RO1. Prompts for T. 

Stores T in RO2. Prompts for PAD. 

Stores PAD in RO3. Prompts for LT. 

Stores LT in R04. Prompts for LL. 

Stores LL in ROS. Prompts for COD. 

Stores a zero in R06. Prompts for R. 

Stores R in RO7. Prompts for ST. 

Stores ST in RO8. Prompts for SL. 

Stores SL in RO9. Prompts for ML. 

Stores ML in R10. Prompts for MC. 

Stores MC in R11. Prompts for MT. 

Stores MT in R12. Finds that a rectangular analysis has 
been called for. Sums the pipe wall thickness with the 
pad thickness. Calculates the shear areas and stores them 
in R13, R14, and R15 for ST shear, SL shear, and MT 
torsion, respectively. Calculates the values of B, and By 
and stores them in R17 through R20. These will be 
used to calculate X1 and Y1. The thrust load multiplier 
is stored in R35. The program shifts to the main 


equation solver. 


Input 


Function 


Display 


FOR NB 3652 
or=194, 
ol=1,338. 
oc=4,263. 
tt=1,047. 
tst=57. 
tsl=120. 


Comments 


The program stores the constants found in WRC-198 for 

the calculation of X1 and Y1. 

The mean radius-to-local-thickness is calculated and 

stored in R16. The input values of the moment are 

converted to in-lbs. The pipe cross-sectional metal area 

and the section modulus are calculated and stored in R21 and R22, 
respectively. 


X1 and Y1 are calculated, using the previously stored 
constants and the logs of By and By. 


One at a time, the stresses due to R, ML, and MC are calculated 
and stored. Then the shear forces are calculated. 


The first data set is printed with the header “PER EQ. 2.” Then 
the stresses due to R, ML, and MC are adjusted to agree with 
Equation 21 of WRC-198. The second data set is printed with the 
header “FOR NB3652.” 
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voaing Form 


Program Number _HP-AICV-7 Title __Shell Stresses 
step! Key Key Comments Step/ Key Key Comments = |Step/ K ke | ¢ t 
Line Entry Code Line Entry Code Line ae Code ae 
QIVLBL “LS* — | Initialize program. | 56 ST+ 83 Wall thickness 99 STF 15 rae 
@2 CLA 51 RCL 84 and pad thickness | 19 p] stored, as detailed 
63 CLRG 52 S10 13 |fesummed to.get] 161 te 43 | above. 
04 CF 12 53 S10 15 “fae 102 ST 14 
85 “O=* Store alpha labels] 54 RCL @5 |The shear areas are| 103 ST¢ 15 
46 ASTO @1 for use in input 55 S10 14 calculated and 104 RCL 93 
67 *T=* parti Set oo as! cé oT 15 stored. Shear 105 2 
68 ASTO pointer an areas for ST, SL, 
49 oats counter. 5? RCL 83 and MT are stored 106 : 
18 ASTO 83 38 ST# 13 in R13, R14, and | 167 ST# 12 
{l “LT=" 59 ST# 14 R15, respectively. | 168 ST# 14 
= 66 ST# 15 109 ST# 15 
12 ASTO 64 
61 2 118 RCL 06 
13 “LL=* 
4 GSO 05 63 Ste 16 U2 REL 0 
15 “COD=* 
1? “R=" 65 1 1147 
18 ASTO 87 66 RCL 64 115 STO 16 
ene 67 RCL 85 116 LOG Log B (where 
28 ASTO 88 68 #1? 117 STO 17 B1 = Bo = B) is 
a =SL=* 69 KOY 118 S10 18 | calculated and 
22 ASTO 09 70 / 119.1 futheni 
23 “HL=° 7 + 128 REL 16 pe in R17 and 
24 ASTO 16 72 ST# 15 121 - R18. Log B for 
25 “HC=* 73 RCL @L 122 RCL 16 moment loading is 
2% ASTO 11 74 RCL 42 123 + lela 
a 124 LOG : 
27 “KT=" 5 
76 1/% 125 STO 19 
ee le 77 STO 16 126 STO 28 
3h 1.612 78 RCL 84 Log By and Log B, = sd . 
= 79% are calculated and _| 
ot AI 0 stored. Log 1 is | 1290LBL C Man pomenn 
86 LOG : Progra 
32 FIX 3 81 S10 17 stored in R17 and | 439 g Constantsare 
oe 2 S10 19 | stored ih RiB and | 131 $70 23 | Shred oor 
349LBL “AA Input routine. 83 RCL 16 R20. Shifts to main| 132 --45 & x ation of 
35 SF 12 Uses ROO as a w X; and Y;. 
: $4 RCL 85 program. 133 STO 24 
36 ARCL IND 80 sears anda 95 ¢ 134 -.75 
3 PROKPT. | SOunter- Se A 135 STO 25 
ope 87 STO 18 ogre 
39 CF 12 98 STO 20 137 STO 26 
48 ACK be 138-55 
4! STO IND 88 96 ST0 25 139 STO 27 
42 PREUF 31 C10 c 148 -.6 
43 CLA 141 $10 28 
44 ISG 68 92eLBL B Circular: Wall ‘| 142 48 
“p= 93 RCL 82 thickness and pad 
45 GTO “AA 94 ST+ 03 thickness are 143 S10 29 
46 RCL 66 Determine “| 95 RCL 06 summed. 144 STO 31 
4? ¥299 attachment 9 145 58 
42.610 8 shape. 2 ee 146 STO 38 
49 RCL 92 Rectangular: 147 2.2 
= 98 S70 13 148 STO 32 
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Step} Key Key Comments Step! Key Key Comments Step! K Ki 
C 
Line Entry Code Line Entry Code ting cae bas ies 
149 2 198 STt 27 247 + 
158 STO 33 199 ST# 28 248 RCL 22 
151 1.8 200 23 Poi 
‘ointers are set. 249 7 
UE ae 261 STO 36 258 S10 42 
153 RCL @i yis calculated from | 282 29 251 RCL 12 Torsional momert 
154 RCL 82 mean diameterand| 2643 S10 37 252 RCL 15 shear stress 
155 - local shell 204 26 253 / calculated and 
156 RCL 63 tiucleness. fll 205 STO 38 254 STO 43 stored in R43, 
13? 
4 3 206 32 255 RCL 08 Shear stresses due 
207 STO 39 256 RCL 13 to shear forces 
i / 208 FIX 9 257 / stored i an 
STO 16 289 XEQ “DA” | Stress due to radial R45 for 757 an 
161 12 Moments are 218 1.54 load is calculated = oF bs SL, respectively, 
162 ST# 16 converted from 2u1 Yt8 and stored in R40. | 569 pei 14 
163 ST# 11 Tb courte 212 RCL 16 261 / 
164 ST# 12 213 .64 262 STO 45 
165 RCL 61 Pipe cross-sectional 214 Yk 263 a 
166 Xt2 ane on section 215 + 264 ALY 
6 modulus are 7 
ie m0 1 mime, | 26 eo 265 
: stored in R21. Zp is 266 “PER EQ. 2° 
169 STO 22 stored in R22. 218 RCL 21 267 PRA 
178 RCL &1 219 / 268¢LBL “BB Print routine. 
171 RCL 92 228 RCL 25 269 SF 12 The first time 
{72 2 221 +# 276 9 through, the 
173 + 222 STO 48 71 ACCHR stresses found 
174 - 223 XEQ “DA [Stress due to 972 CF 12 ee 
[a ‘ longitudinal een 
z ay . os ly nt enite 273 SF 13 printed. The 
oe 226 RCL 16 calculated and 274 “R=” fast a 
17? 4tz stored in R41. 275 ARCL 46 through; :the 
178 ST- 22 227 .74 276 ACA = a 
ve ‘or Fara: 
179 PI 228 YtH 277 ALY NB3652 are" 
184 ST# 21 225 + i 
zZ 278 SF 12 printed. Each 
121 ST# 22 236 1.2 279.9 time a header is 
192 4 231 + 286 ACCHR printed. 
193 1/4 aa 281 CF 12 
184 ST# 21 234 RCL 22 282 “L=" 
185 2 235 / 283 ARCL 41 
186 / > en at 284 ACA 
187 8T# 22 236 $ 285 ADV 
188 RC 237 4E@ “DA™ Stress due to 
RCL At 238 3.4 circumferential 286 SF 12 
189 ST/ 22 239 Yt moment is 287 9 
198 RCL 17 X, and Y; are 248 RCL 16 calculated and 288 ACCHR 
191 ST+ 23 calculated for all stored in R42. 289 CF 12 
192 RCL 1 eases, using Gob 298 C=" 
“ constants in 
193 ST+ 26 Soar oe 291 ARCL 42 
194 RCL 19 calculated values of 744 1.8 292 ACA 
195 ST+ 24 Log By, and Log Bo. ee 253 ADY 
196 ST+ 25 245 ¥ 294 SF 1 
zZ 
197 RCL 26 246 REL 11 295 14 
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| 


step) Key Key Comment wiepr oney Key Comments Step/ Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 

296 ACCHR | 345 SIH | 

297 CF 12 346 + 

28 *T=" 347 + 

299 ARCL 43 348 CHS 

368 ACA 349 RCL IND 26 

3Ol ALY 358 RCL IMD 37 

302 SF 12 351 SIN 

383 14 352 + 

304 ACCHR 353 RCL IND 33 

305 CF 12 354 RCL IND 37 

386 °ST=" 355 COS 

367 ARCL 44 356 * | 

308 ACA 57 - 

369 ADY 358 #42 

318 SF 12 359 RCL IND 39 

Mi 14 366 / 

32 ACCHR 361 - 

313 CF 12 362 STO 68 

314 “SL=° 363.1 

BS ARCL 45 364 ST+ 36 

36 ACA 365 ST+ 37 

31? AMY 366 ST# 38 

318 ADY 367 ST+ 39 

319 FO? "| 368 RCL 98 

328 GTO “BC 369 RIN 

sel 2 376 END. 

322 EXTERt c 

323 3 

3247 

325 ST+ 48 

326 ST# 41 

327 ST* 42 The stresses oR, 


328 CF 13 

329 “FOR NB3652" 
338 PRA 

Bi G10 °BB" 


oL, and oC are 
adjusted for NB 


3652. The program 


then jumps to the 
printing routine. 


S32eLBL "BC" 
3B AY 

334 ALY 

335 CLE 

336 FIX 3 
337 STOP 


Program ends. 


SBSeLBL “DAS “| Subroutine: 7 is 


339 RCL IND 36 
348 RCL IND 37 
341 COS 

342 + 

343 RCL IND 38 
344 RCL IND 37 


calculated per 
WRC-198. 
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Chaser 8 


Allowable Pipeway Spans 
for Steel Pipe 


Program TI-59-8 

Introduction; Li: oe upan based on allowable deflection 
Z ‘ 3 t) 

1194 calculates three different pipeway spana based 12: Maximum zpan bazed on allowable bending 
on three different criteria: maximum allowed deflection streys (ft) 
of the pipe, maximum allowed bending stress, and 13 Maximurn epan based on the eum of the bend- 
maximum allowed stress at the support due to bending, ing atrevs and the Jocal strese at the support 
and local shell stresses, The program is based on carbon point (ft) 
wd pipe and uses fixed beam equations for the bend- 
ing otregs and deflection and an analysis found in Weld- 
ing, Research Council Bulletin #198 for the local stress Method: 


cculations, 


Nomenclature; 
Fleven pieces of data may be input to the program: 


OD: Pipe outside diameter (in) 
J: Pipe wall thickness (in) 
PAD: Support reinforcing pad thicknegs (in); may 
be zero 
{T; Insulation thickness (in) 
JD: Insulation density (Ib/ft”) 
DEN: Fluid density (Ib/ft’) 
Cl: Transverse length of support area (in) 
C2; Longitudinal length of support area (in) 
*S, Allowed bending stress (psi); Std = 8500 
"2S; Allowed bending and local stress (psi); 
Std = 17,000 
Maximum allowed deflection (in); 
Std = 0,375” 


for data marked with an asterisk default values are built 
into the program, 
Four user-keys execute the program: 


A: Input data 

B; Execute with default values 

C Execute with all data input by user 
Initialize program 


“A: 


The three allowable span lengths are designated and 
labeled as follows: 


The calculations of the first two allowable spans are 
based on a continuously loaded beam that is fixed at 
both ends, For a deflection-based span, the formula ia: 


4f 7, F 
fim SS deflection) ae 


For a span baged on allowable bending stress, the equa- 
tion ig: 


= (12)(Z)(Allowable bending stress) 
(w) 


For spans based on the combined stress allowable at the 
support point, the equation is: 


(Combined stress 
—(Ct)(w) Pe (Ct)*(w)* me allowable)(w) 
(Ww) 
(6)(Z) 


where 


E = Pipe modulus of elasticity = 27,9EE6 psi 
I = Pipe moment of inertia 
w = Pipe weight per inch 
Z = Pipe section modulus 
Ap = Pipe metal area 
Ct = Pipe support area shape coefficient 
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TRON ovetliciont is derived from a study in Weld- 
dX Nosaarch Council Bulletin #198 and is derived as 
Whus 


CY = ARTY ON) E54 
N= =(XLCOS 40 + Y1 SIN 40) 
1 
aT (XI SIN 40 —Y1 COS 40)? 


\L = log(C1/OD) 
Yt = 0.05 + log(C2/OD) 


R = pipe radius 
t = thickness of pipe plus thickness of pad (if any) 


Limitations: 


TI-59-8 deals only with steel pipe. Each set of input 
data is used only once; that is, no data carry over to 
the next analysis. After the initial run, the program is 
self-initializing. The analysis will not allow the value 
of C2 to exceed the outside diameter of the pipe. Only 
English units may be used. 


Figure8.1 Sketch DefiningC1 andC2 


PLAN VIEW 
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vuoer instructions 


program Number TI-59-8 Title Allowable Pipeway Spans 
Step Instructions Input 
1 Read in magnetic card, both sides. 

2 Initialize program. 

} Input OD. OD 

4 Input T. T 

5 Input PAD. PAD 
6 = Input IT. IT 

7 Input ID. D 

8 Input DEN. DEN 
9 Input Cl. Cl 

10 Input C2. C2 

11 Execute program with internal allowables. 

12 Input allowed bending stress. Ss 

13_ Input allowed combined stress. xs 

14 Input allowed deflection. A 

15 Execute. 


If the user decides to use the internal allowables, 
Steps 12 to 15 cannot be executed. If the user 
inputs his own allowables, Step 11 is skipped. 
The two procedures are mutually exclusive. 
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Keystroke 


AF>>r> WH>>>P>> > dM 


Data Register Contents 


REGI- REGI- 
STER DATA STER DATA 
oo | IND 
Ol | OD 
02 x 
03 PAD 
Me o4 | IT 
os |D 
06 | DEN 


27,900,000 for carbon steel) 


13 Pipe metal area 
Moment of inertia 

15 | Weight per inch (WPI) insulation 

16 | WPI fluid 

17 | WPI pipe 47 
las | Total WPI 48 

19 |LI 49 

20 = «|L2 50 

21 =|L3 51 

22 |IND 2 

23 53 

24 | XI 54 

25 |X2 55 

26 56 

27—«*|Ct 57 

28 | | 58 

» | To |. 
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e500. 
17000. 


Pipe outside diameter (in) 

Pipe thickness (in) 

Support reinforcing pad thickness (in) 
Insulation thickness (in) 

Insulation density (Ib/ft’) 

Fluid density (Ib/ft?) 

Transverse length of support area (in) 
Longitudinal length of support area (in) 
Allowed bending stress (psi) 

Allowed bending + local stress (psi) 
Allowed deflection (in) 


Maximum span based on deflection (ft) 


Maximum span based on bending stress (ft) 
Maximum span based on combined stress (ft) 
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EXAMPLE CALCULATIONS 


OD = 24” Cl = 2.88” 

T = 0.375" C2 = 4,5” 

PAD = 0.375" S = 8500 psi 
IT = 3” =S = 17000 psi 
ID = 11 lbs/ft? A = 0.375" 


DEN = 62.4 Ibs/cu.ft 


Pipe metal area = (24 — 0.375)(0.375)(PI) = 27.833 in? 
Pipe moment of inertia = ((24)* — (23.25)*)(PI)/64 = 1942.299 int 
Pipe weight-per-inch: 
Pipe: (27.833)(0.284) = 7.904 #/in 
Insulation: (24 + 3)(3)(PI)(11)/1728 = 1.620 #/in 
Fluid: (23.25)°(PN/4 x (62.4)/1728 = 15.331 #/in 


Total = 7.904 + 1.620 + 15.331 = 24.855 #/in 


L1 = 4/(384)(27.9EE6)(1942.299)(0.375) . 


0.9 = 673.689" 
(24.855) = 56.141 ft 
* 24. & .9)4 
mea jx tO (24.855)(673.6890.9)" _ a, 


(384)(B)(1).  (884)(27.9EE6)(1942.299) _ 


12)(1942.299)(2)(8500)/24 
7 af ( N2B5OOV24 as en 
(24.855) = 67.917 ft 


(w)(L)? _ (24.855)(815.006)? 
~2(Z)—«(12)(161.858) 


check: o 8500 psi 


L3: n(WRC-198) =:—(X1 COS 40 + Y1 SIN 40) —1/2.2(X1 SIN 40 — Y1 COS 40)? 


X1 = log(1.44/12) = —0.921 

Y1 = 0.05 + log(2.25/12) = —0.677 

n = —((—-921)(COS 40) + (—.677)(SIN 40)) —1/2.2((—.921)(SIN 40) — (—.677)(cos 40))? 
= 1.138 

Ct = 12(12/.75)4(1.138)!-54 = 86.366 


_ (86.366)(24.855) * (e6.366)¢24.8557 ‘ (17,000)(24,855) 
(27.833) (27.833) (3)(161.858) 


ue (24.855) 
(6)(161.858) 


= 212.900” 
= 17.742 ft 
check: 


loc. = (Ct)(PYAp 

= (86.366)(212.900 x 24.855)/27.833 = 16,420 psi 

_ (24.855)(212.900)? _ ; 

= “G2y161.858) 
16,420 
+ 580 
17,000 


Sample Problem 


-59-§ 
Program: 
OD = 24" 
T = 0.375" 
PAD = 0,375" 
r=-3" 
D = 4 Iw 
DEN = 62.4 Ibvft3 
Cl = 2.88" 
C2 = 45" 
S = 8500 psi 
XS = 17,00 psi 
A = 0.375" 
Key 
Step Input Stroke Display Printer Comments 
INITIALIZE PROGRAM BY PRESSING “E” 
1 24 A 24, 24. OD | Stores OD in RO1. 
2 .375 A 0.375 0.375 . T Stores T in RO2. 
3 375 A 0.375 0.375 PAD | Stores D in RO3. 
4 3 A 3. 3. IT | Stores IT in RO4. 
5 11 A 11. 11. ID Stores ID in ROS. 
6 62.4 A 62.4 624 DEN Stores DEN in RO6. 
7 2.88 A 288 2.88 Cl Stores C1 in RO7. 
8 4.5 A 45 45 C2 Stores C2 in RO8. 
9 B 0. 8500. Ss 
17000. xs 
0.375 A The program labels, prints, and 
stores the internal values for bending 
56.14 Li stress allowable, combined stress 
67.92 12 allowable, and maximum allowed 
17.74 L3 deflection. The program then 


calculates the allowed span for 
deflection and stores the value in 
R19. Then the span for bending 
stress is calculated and stored in R20. 
Finally, the program calculates the 
shape factor for the local area 
according to WRC-198. Using the 
shape factor the program calculates 
the stress intensity factor according 
to WRC-198. The span based on the 
combination of bending stress and 
the local stress is calculated and 
stored in R21. 

The results are then printed out. 
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Coding Form 


Program Number TI-59-8 Title Allowable Pipeway Spans 
Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
vid ~e LBL | Initializing routine.| 960 42 STO 33~C«é“ 

0: 15 E Sets alpha labels. | 961 10 190 03 3 

wo2 a3 3 062 37 7 07 7 

003 22 2 o6s 05 5 05 9 

vod O1 4 O64 42 370 69 OF 

105 06 6 065 11 11 6 06 

006 42 STO 066 90 OG |Setpointertozero.} 126 72 ST 

007 OL Ot 067 42 $TO 12700 00 

008 93 8 065 oo oO 23 76 LBL |Stores modulus of 
009 OF 7 969 91° RF 29 1% C {elasticity for 
gio 42 STO Input routine: 130 02 2 carbon steel in 
dit 02 02 Uses ROO as a 131 O07 7 R12. 

012 08 3 ointer. 32.93 

013 03 3 P 133 09 9 

014 aL 4 134 52 EE 

015 OS 3 145 06 & 

o16 O1 1 136 42 STO 

oi7 06 6 137 i2 te 

018 42 STO BG 25 TLR 

019 03 «98 39 42 PCL |Calculates pipe 
020 O02 2 40 1 G1 |metal area, and 
02: 04 4 141 33 #2 yee pene 
022 = 2 42 42 STO |values for pipe, 
023 z 143 13 12 | fluid, and 

024 42 STO Main contro’ for || 144 42 STO |insulation. Also 
025 04 4 Ain Sia 145 17 17 |calculates pipe 
026 O02 2 lowables. 146 94 +/- |moment of inertia. 
027 #04 4 147 42 STO 

o28 01 1 48 15 15 

029 06 6 149 33 Hz 

030 «642 STO 150 42 STO 

031 05 05 i51 14 14 

32 01 1 ‘ tandard 52 43 RCL 

033 36 6 slowablesanid 153 01 0} 

Bas a a stores them in tae ie = 

35 i ao 2 

03 03 3 =e 156 65 x 

037 «OL 1 157 3 RCL 

038 42 STO 152 02 02 

039 06 06 LS 95 = 

40 O01 4 160 33 42 | Pipe WPI is 
04105 =S 161 42 STO |stored in R17. 
042 00 O 16 16 16 |Insulation WPIis in 
043 02 2 163 94 +/- |R15. Fluid WPI 
044 42 STO 164 44 SUM |Jis in R16. Metal 
045 O07 O07 i165 12 19% |area is stored in 
046 O41 1 166 44 SIM |R13, and moment 
04? O05 5 167 17 17 Jof inertia is in R14. 
3 00 O 163 32 %z 

949 93 3 169 94 +7- 

950 : — 170 44 SUM 

31 08 0g i 14 14 

ie 03 8 192 43 RCL 

A ea 172 01 O1 

ace ae = 174 35 6+ 

ie 09 09 175 02 2 

We sy 7? 7% 65 OX 

oy 07 Z 176 6) 

(8 03 4 177 43 RCL 

053 06 6 wee 

ma 179 9o = 


Loc Code Key Comments Code Key Comments Loc Comments | 
180 35 Xt 43 RCL 30a 
isi 44 SUM 16 16 301 
192 To ws Sa 302 
ISS $9 4 43 ROL 303 a 
IS S55 + 1? 17 304 Log Bz + .03|s 
iss 04 4 95 = 305 apopes in. 
$6 935 = 4> $To 208 These are XsandY, 
1sf 49 pro 13 ie 307 sea to 
88 138 3 Q3 3 |Calculate L based aks mae 
2 a8 8 [on allowed ale 
04 4 — |deflection; store 3 in 
éS X |Llin R19. Sit 
43 RCL Sie a 
It 11 $13 é 
65 xX Sis = 
43 RCL 315 vO 
if 12 oe ———————————— 
65 8 J Sif 23 —==—7Eajculate 7 per 
48 RCL Ste ec |WRC-198. 
iq 14 a 34 
so = a 
Change units to 43 RCL = 
#/in® for density ig is = 
of fluid and 95 = : 
insulation. 34 TS 
34 8 
63 
as 
ao 
35 
Sets C2 to the lesser 42 
of the input value ia 
and the pipe OD. 43 Calculate L based 
14 on allowed 
33 bending stress; 
43 store L2 in R20. 
> 
3 
iz. Complete WPI 
2 calculations. & 
2 345 
3 S46 
2 a4? 
2 5 34g 
2 5 349 
23 5 350 
231 o 1 
232 2 2 
232 3 3 
234 294 E 
225 295 Begin L3 
236 - 296 calculation. Log 
227 Total WPI is stored | 257 B, is stored in R24. 
238 in R18. 298 Calculate CT per 
233 249 WRC-198. 
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Loc 


Code 


JO 02 OO) Oo O10 


fe OO Bote 


CO Cee ee RO oO oe 
HOONWU MW MOW UI WOU On 


7 
YRO OPE O KE O+ Pe Ot Y 


42 
4 


=f 


+o 


xV pn 


x 
h 


x 7 


we 


2) 


7 


IMOAFROLeE OX SM Wwe KB 


) 


7 


oT 


ei 


tO 


ha 


Comments 


based on the sum 


stress at the 
support. 


Comments 


1 


Loc Code Key 


Comments 


= 
x 


L3 is stored in 


unlpe ak we op 
NB MaAD oc 


aa 
rare 


AMO 
oh 


ae 
‘oD 


es Re fe 
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= 


RST (Initialize. 
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Pipeway Spats 


Pipe outside diameter (in) 

Pipe thickness (in) 

Support reinforcing pad thickness (in) 
Insulation thickness (in) 

Insulation density (Ib/ft*) 

Fluid density (Ib/ft?) 

Transverse length of support area (in) 
Longitudinal length of support area (in) 
Allowed bending stress (psi) 

Allowed bending + local stress (psi) 
Allowed deflection (in) 


Maximum span based on deflection (ft) 
Maximum span based on bending stress (ft) 
Maximum span based on combined stress (ft) 
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Program HP-41CV-8: Pipeway Spans for Steel Pipe 


Introduction: 


HP-41CV-8 calculates three different pipeway spans 
based on three different criteria: maximum allowed de- 
flection of the pipe, maximum allowed bending stress, 
and maximum allowed stress at the support due to 
bending and local shell stresses. The program is based 
on carbon steel pipe and uses fixed beam equations for 
the bending stress and deflection and an analysis found 
in Welding Research Council Bulletin #198 for the local 
stress calculations. 


Nomenclature: 
Eleven pieces of data may be input to the program: 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 


PAD: Support reinforcing pad thickness (in); 
may be zero 
IT: Insulation thickness (in) 
ID: Insulation density (Ib/ft*) 
DEN: Fluid density (Ib/ft*) 
Cl: Transverse length of support area (in) 
C2: Longitudinal length of support area (in) 
*BS: Allowed bendingstress (psi);Std = 8500 
*TS: Allowed bending and local stress (psi); 
Std = 17,000 
*DLTA: Maximum allowed deflection (in); 
Std = 0.375" 


For data marked with an asterisk, default values are 
built into the program. 
Three keys are used to execute the program: 
E: Initialize the program 
R/S: Used for data input 
A: Execute using default values 


The three allowable span lengths are designated and 
labeled as follows: 


LA: Maximum span based on allowable deflection 
(ft) 

Lys: Maximum span based on allowable bending 
stress (ft) 

Lis: Maximum span based on the sum of the bend- 


ing stress and the local stress at the support 
point (ft) 


Method: 


The calculations of the first two allowable spans are 
based on a continuously loaded beam that is fixed at 
both ends. For a deflection-based span, the formula is: 


i ae Naonn deflection) 4 g 


(w) 


For a span based on allowable bending stress, the equa- 
tion is: 


— (12)(Z)(Allowable bending stress) 
pa a Me owadle Rene ree 
(w) 


For spans based on the combined stress allowable at the 
support point, the equation is: 


(Combined stress 


—(Ct)(w) (Ct)?(w? e allowable)(w) 


eee (Ap)? 3\(Z) 
" ce 
(6)(Z) 
where 


E = Pipe modulus of elasticity = 27.9EE6 psi 
I = Pipe moment of inertia 
w = Pipe weight per inch 
Z = Pipe section modulus 
Ap = Pipe metal area 
Ct = Pipe support area shape coefficient 


The shape coefficient is derived from a study in Weld- 


ing Research Council Bulletin #198 and is derived as 
follows: 


Ct = 12(0RT) (Ny 
N = —(X1 COS 40 + Y1 SIN 40) 


1 
Tv (XI SIN 40 -Y1 COS 40)? 


X1 = log(CVOD) 
Y1 = 0.05 + log(C2/OD) 
R = pipe radius 
t = thickness of pipe plus thickness of pad (if any) 
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Limitations: the next analysis. After the initial run, the program 

self-initializing. The analysis will not allow the vz 
HP-41CV-8 deals only with steel pipe. Each set ofinput of C2 to exceed the OD of the pipe. Only English ura 
data is used only once; that is, no data carry over to may be used. 


Figure8.2 SketchDefiningC1 andC2 


PLAN VIEW 
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KEYBOARD 


SYSTEM 
CONFIGURATION 


Keyboard Card Labeling 


eaoaaee 
==)=)=)— 
2o988 


———f i 
Sh 
——— 
=_—s—s— 
Hee & 


c 


User Instructions 


Program Number ——HP-41CV-8 Title —Allowable Pipeway Spans —___ 


Step Instructions Input Keystroke Display 
1 Read in magnetic cards, 
2 Initialize program. E OD= 
3 Input OD. OD R/S T= 
4 Input T. 7 R/S PADe 
5 Input PAD. PAD R/S IT» 
6 Input IT. Ir R/S ID= 
7 ~~ ‘Input ID. ID R/S DENe 
8 Input DEN, DEN R/S Cle 
9 Input Cl. Cl R/S C2= 
10 Input C2. C2 R/S BSe 
11 If the default values are used: 
Execute, A OD= 
If nonstandard values are used: 
12 ‘Input BS. BS R/S TS= 
13 Input TS. TS R/S DLTA= 
14 Input DLTA. DLTA R/S OD= 
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Registers, Flags, Assignments 


Program Number _HP-41CV-8 __ 


DATA REGISTERS 


10 TS 

J] DLTA 

42 27,900,000 

13 Metal area 

14 Moment of inertia 
15 WPI pipe 

16 WPI insulation 
17 WPI metal 

18 Total WPI 

19 L(dlta) 

20 L(bs) 

21 L(ts) 

22 Pipe section modulus 


24 LOGBI 
2% LOG B2 


27 Ct 


Allowable Pipeway Spang 


DATA REGISTERS 


39 
40 


FLAGS 
Init 


# sic Set Indicates Clear Indicates 


ASSIGNMENTS 
Label Key Function Key 


AA 11(A) 
PS 15) 
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pe 


aaa SS Se = 


OD= 24.968 
T= 6.575 
PAD= 8.375 
IT= 3.660 
ID= 11.968 
DEN= 62.468 
C1= 23888 
C2= 4.588 


Bs= 8,508,688 
TS= 17,996. 888 
DLTA= 8.375 


Lé= 56.14 
Lhs= 67.92 
Lts= 17.74 


Cl = 2.88” 
4 Q=45 
A BS = 8500 psi 
OOF TS = 17000 psi 
(wey A=0375 
2°. pelt 


= @4 — 0.375)(0-375 (PD) = 27-853 in? 


0.284) = 7.904 #/in 
pipe: C7 ON pny(iy/1728 = 1.620 #/in 


pps azar EN! * (62.4)/1728 = 15.331 #fin 


e708 t 1.620 + 15.331 = 24.855 #/in 
Total = 


<I IEAILINOT) 5 99 «675 9 
a = 56.141 ft 


cw(ly*___ 24. 855)(673.68910.9" 
det A= Gene)  684)(27.9EE6\(1942 299) 


7 [razyn942-299)(2(8500)/28 ar 
a (24-865) = 67.917 ft 


_ cont? _ 24855, 615.0067 
deck O= GZ (12)(161.858) 


= 0375" 


= 8500 psi 


L+ (WRC-198) = —(X1 COS 40 + Y1 SIN 40) —1/2200 SIN 49 — ¥1 COS 49)7 


XI = log(L44/12) = —0.921 
Y= 0.05 + log(2.25/12) = —0.677 


4= -((--921)(COS 40) + (—-677)(SIN 40)) —1/22((—.921)(SIN 49) — (—.677)(cos 40) 


=11B8 
G= 12112/.75)*(1.138)'* = 86.366 


7 (86.366)(24.855) ss [(86.366)2(24.855) a (17,022,000, 
(27.833) (27.833) (3)(161.858) 
L3 = (24.855) 
(6)(161.858) 


aloc. = (Ct)(P)/Ap 
= (86.366)(212.900 x 24.855)/27.833 = 16,420 psi 


= (24.855)(212.900)? 


és = 580 psi 
: (12)(161.858) ee 


16,420 
+ _ 580 


17,000 


Sample Problem 


Allowable Pipeway Spans 


Program: _HPAICV8 Title 

Sample Problem (Sketch if Desired) 

OD = 24" 

T = 0.375" 

PAD = 0.375" 

IT =3" 

ID = 11 Ib/ft3 

DEN = 62.4 Ib/f3 

Cl = 2.88" 

(2=45" 

BS = 8500 psi 

TS = 17,000 psi 

DLTA = 0.375" 

Input Function Display 
E OD= 
aA R/S a 
375 R/S PAD= 
375 R/S i 
4 R/S ID= 
R/S DEN= 
624 R/S Cl= 
288 R/S C2= 
45 R/S BS= 
A 
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Comments 


Initializes program. Prompts for the input of OD. 
Stores OD in RO1. Prompts for T- 

Stores T in RO2. Prompts for PAD. 

Stores PAD in R03. Prompts for IT. 

Stores IT in R04. Prompts for ID. 

Stores ID in ROS. Prompts for DEN. 

Stores DEN in R06. Prompts for C1. 

Stores C1 in RO7. Prompts for C2. 

Stores C2 in RO8. Prompts for BS. 

Stores and prints the default values for BS, TS, and 
DLTA. BS is stored in RO9, TS is stored in R10, and 
DLTA is stored in R11. 


The program first stores the modulus of elasticity for 
carbon steel (27.9EE6 psi) for later use. Then the 
weight-per-inch of the pipe is calculated, along with the 
moment of inertia and metal area of the pipe. 

The input values of ID and DEN are converted to 
Ibs/in>. Next the program chooses the lesser of the 
input value of C2 and the pipe OD for use in the local 
stress calculations. The program then calculates the 
span based on deflection and stores it inR19. The span 
based on bending stress is calculated and stored in R20. 


Tapat 


Function 


Display 


OD= 


Comments 


Then the shell stress analysis per WRC-198 begins by calculag., 
the shape factor. Using the total stress value, the program 
calculates the span based on bending stress and the local shell 
stress and stores it in R21. The spans are all converted to feet 2, 
printed. After printing, the program reinitializes itsclf for the 
next analysis, 


Coding Form 


Program Number _HP-AICV-8 Title _Allowable Pipeway Spans 
Step! Key Key Comments Step/ Key Key Comments Step} Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
@l*LBL *PS* Initializing routine: + 
62 “OD Sets all alpha 31 Poe 00 9 4 . 
03 ASTO af labels and the 5) *h=* 
04 «T° pointer ROO. ane : 
65 ASTO 62 54 ACA 103 #42 
66 “PAD: 55 RDH 164 Xt2 
87 ASTO Bs 56 CF 12 185 - 
68 “IT* 57 ACK 186 PI 
89 ASTO 84 58 STO IND 64 167 + 
1@ 1D" 59 PRBUF 168 64 
11 ASTO 85 66 CLA 169 7 
12 DEH" 61 ISG 48 {16 STO 14 
13 ASTO 86 62 GTO 11 Af 1728 Change units of ID 
14 *C1" 63¢LBL “ABY Main control for 112 ST/ 95 and DEN to Ibs/in*. 
15 ASTO 87 64 27.9 £6 becapy net , 113 ST/ 96 
16 “C2" 65 STO 12 allowables. StoreE-( 114 R¢L af Chooses smaller of 
1? ASTO 68 | 66 RCL at Calculates weight- | 115 RCL 88 input C2 and pipe 
18 “BS° 67 ¥t2 per-inch values for} 146 ¥(=Y? OD for use in 
19 ASTO @9 pipe, insulation, ‘ WRC-198 analysis. 
Pen 68 STO 13 and fluid. Also 117 GTO 13 
69 STO 17 calculatesaretal M18 ROY 
: ey 78 CHS area and moment 119LBL 13 
a 71 STO 15 of inertia. 120 STO 48 
23 ASTO 11 72 RCL @l Pipe WPI is in R17." 424.284 Complete WPI 
24 1.811 73 RCL 92 i WPI is 122 ST# 17 calculations. ~ 
25 STO 68 74 2 Fluid WPlisinR16.| 123 RCL 65 
26eLBL 18 Input routine: 75 # Metal area is in 124 5T# 15 
27 CLA Uses ROO as pointer! 7% _ R13. 125 RCL 06 
28 ARCL IND a6 and counter. 27 xt2 Moment of inertia 126 ST# 16 
oa 78 STO 16 is in R14. 127 RCL 15 Toe WR is stored 
79 ST- 13 128 RCL 16 ms 
: PROMPT 88 ST- 17 129 RCL 17 
2 ACA 81 RCL Al 138 + 
3 CF 12 $2 RCL 44 13) + 
34 FIX 3 §3 2 132 STO 18 | 
35 ACK 84 * 133 384 Span calculation 
36 STO IND 98 95 + 134 RCL 11 for deflection 
3? PREUF 135 + criterias 
86 Kt2 performed 
38 CLA 87 ST+ 15 136 RCL 12 : 
6 1 “ 19 UL 
89 4 14 LA is in R19. 
41 GTO *AB™ 139 + 
98 / 
424LBL *AA" Main control for 
43 CLA default values of 91 ST# 13 - ie 
44.375 bending stress 92 ST# 15 
45 is allowables, total 93 ST* 16 142 SORT 
ENTERt stress allowables, 94 ST* 17 143 SQRT 
46 17808 and deflection. 95 RCL 91 144.9 
47 ENTERT Stores and prints 145 + 
48 8560 default values. 96 Xte 
es 97 Xt? 146 STO 19 
ENTERt 98 RCL 81 147 RCL 14 
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Step! Key — Key Comments Step! Key ney Ree uepr Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
148 RCL 61 Bending stress 197 Yt Calculate Ct per | 246 FIX 2 
149 7 span calculation is 198 RCL @t WRC-198, Store in 247 SF 12 
158 2 ee | OR ie hs 248 “L" 
131% : 268 RCL 83 249 ACA 
182 STO 22 261 + 258 CF 12 
193 12 202 7 251 SF 13 
154 * 203 2 202 8 
155 RCL @9 264 7 253 ACCHR 
156 + 205 .64 254 CF 13 
157 RCL 18 206 YTS 255 SF 12 
158 7 207 * 256 "=" 
159 SQRT 268 12 25? ACA 
168 STO 26 209 ¥ 258 CF 12 
161 RCL 87 Begin span 218 STO 27 259 RCL 19 
162 RCL 61 erent cas ' 241 CHS 268 ACK 
163 7 ending stress plus| 212 RCL 18 Span calculation 
164 Loc a. | Aas fartoral cites el ar Print Lo 
. 2 is performed. 
165 STO 24 X, and Y; per 214 RCL 13 P 263 “Lt 
166 RCL @8 WRC-198. 215 7 264 ACA 
167 RCL @1 216 RCL 27 265 CF 12 
168 7 air Rte 266 SF 13 
169 LOG 218 RCL 18 267 "BS" 
176 .85 219 Xt2 269 ACA 
{t+ 228 * 269 CF 13 
172 STO 25 221 RCL 13 Lis is stored in R22.) 97g SF 12 
173 RCL 24 Calculate 1 per 222 xt2 ai "=" 
174 46 WRC-198. 223 / 272 ACA 
175 COS 224 RCL 16 273 CF 12 
176 * 225 RCL 18 274 RCL 20 
177 RCL 25 pe 275 ACK 
178 46 2e/ 4 276 ALY 
179 SIH [ia 277 SF i Print Ls. 
186 * — ia 278 “L* 
181 + 279 ACA 
182 CHS a suit 288 CF 12 
183 RCL 24 793 + 281 SF 13 
184 46 234 RCL 18 282 “TS” 
185 SIH ob 283 ACA 
ib 236 RCL 22 eee bP is 
187 RCL 25 237 + 285 SF 12 
188 46 286 “=" 
189 COs orig 287 ACA 
198 + eed 288 CF 12 
192 y42 241 12 Convert spans to 298 ACK 
242 ST’ 19 feet. 291 ADY 
193 2.2 © 
194 / 243 ST/ 26 292 ALY 
195 - 244 ST’ 2 : 293 ALY 
196 1.54 245 ADY Sues Leg, 
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Step! Key Key 
Line Entry Code 
294 GTO “PS* 
295 . END, 


Comments 


ptep} Key Key 
Line Entry Code 


Comments 


Step) Key Key 
Line Entry Code 


Comments 


241 
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Chapler 9 


Support Ring Stresses 


Program TI-59-9 


Introduction: 


TI-59-9 calculates the stresses in circular reinforcing 
support rings utilizing the analysis developed by Omer 
Blodgett and found in Design of Weldments, Section 
4.7, The program calculates and prints the stress values 
and the support section moment of inertia, neutral axis, 
and affected length of the pipe wall. 


Nomenclature: 


Ten items are input by the user: 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 
P: Internal pressure (psig) 


DR: Depth of the ring (dimension along the 
pipe axis) (in) 

TR: Thickness of the ring (in) 

HR: Height of the ring (dimension out from 


pipe wall) (in) 
A: Height of point of application of the 
support force out from the pipe wall (in) 
F: Applied force per support point (Ibs) 
N: Number of points of support 
(1, 2, 3, 4, 6, or 8) 
ANGL: Angle of applied force (degrees) 
Three “user” keys are used to execute the program: 


A: Input data 
B: Execute program 
E: Initialize program 


The program prints out the following data as output: 


e: Length of pipe wall affected (in) 
NA: Distance from outside of ring to the 
neutral axis of the support ring (in) 


INA: Moment of inertia about neutral axis (in) 
HOOP: Hoop stress (psi) 
TENS: Tensile stress (psi) 
BEND: Bending stress (psi) 
COMB: Total combined shear stress (psi) 
Method: 


TI-59-9 uses the analysis developed by Blodgett and 
found in detail in Design of Weldments, Section 4.7, 
and in Design of Welded Structures, Section 6.6. In the 
following, there are some excerpts from these discus- 
sions that may be used as reference. For a full under- 
standing of the problems, the user is encouraged to 
study Blodgett’s discussions in detail. The basic idea is 
that the ring and the pipe wall make up a support 
structure that distributes the load to lower the shell 
stresses in the pipe. A moment of inertia of the support 
structure is calculated, and with the input support force, 
a set of support stresses is then calculated. 
Limitations: 

TI-59-9 only analyzes one set of data at a time. None of 
the data that are input is carried over to the next analy- 
sis. The analysis only can analyze a certain set of sup- 
port conditions, that is, where the number of support 
points on the ring is 1, 2, 3, 4, 6, or 8 points distributed 
equally around the ring. There is no interpolation by the 
program. 
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User Instructions 


Program Number _1I-59-9 Title Support Ring Stresses 
Step Instructions Input 
1 Initialize program. 

2 Input pipe outside diameter. OD 

3 Input pipe thickness. zc 

4 Input internal pressure. P 

5 Input depth of ring. DR 

6 Input thickness of ring. TR 

7 Input height of ring. BR 

8 Input height of point of application of force. A 

9 Input applied force. FE 

10 Input number of points of support. N 

11 Input angle of applied force. ANGL 
12 Execute program. 
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— Keystroke 


WD >>> > >>> >OT 


Display 
0 
OD 
y 
P 
DR 
TR 
HR 


NA 
INA 


STRESSES 


HOOP 
TENS 

BEND 
COMB 


Data Register Contents 


_ 


3 


cs 
| 


REGI- REGI- 
STER DATA STER DATA 
IND 30 | 
OD 31 500.283 
T 32 0.318 
33 289.188 
F 38 | 
N 39 
ANGL 40 
41 
Po 
po 
a ae 


— 
uo 


— 


be Wl Ue» a le I 4 © 
ABB BREBEE z 
FS > 


24 
ocb : 

26 

27 sg 

mle 


S 


29 | mean radius 
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Example Problem 


Pipe outside diameter (in) 
Pipe wall thickness (in) 
Internal pressure (psi) 
Depth of ring (dimension along pipe axis) (in) 
Thickness of ring (in) 
Height of ring (dimension out from pipe wall) (in) 
Height of point of application of support force (in) 
Applied force (Ibs) 

H Number of points of support (1, 2, 3, 4, 6, or 8) 
ANGL Angle of applied force (degrees) 


= Length of pipe wall affected (in) 
HA Distance from outside of ring to neutral axis (in) 
THA Moment of inertia about neutral axis (in) 


HOOP Hoop stress (psi) 

TEHS Tensile stress (psi) 

BEHD Bending stress (psi) 

COME Total combined shear stress (psi) 


ic 
P= 100 psig 


Neutral 


axis 


| 
| 
1 
| 
| 
| 
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Source Documentation 


47-4 / Stationary-Member Design 


It should be noted that there seems 
to be a copying error in this sample 
problem. In figure 10, the value of 
"Cb " is noted as 1.695. Yet in the 
moment of inertia calculations above 
figure 11, the calculated value of 
"Cb " is 1.613. This latter value 
is correct, but the former value 

is used in the rest of the example. 
In the QA example of this program, 
this same problem is analysed. The 
values printed out by the 

calculator are those found when the 
"cb " value is 1.613". 


Problem 2 


PART A: Four hangers are used to support a verti- 
cal 12" stand pipe, Figure 9. Determine the total 
radial force acting on the shell as a result of the 
force (P) applied to the hangers. 


Cucnares TensnsSrenss 0 Satis From 
Wreanac Parsauae 


a, » Bee werent © 1888 pe 
b5 , 20260 

On ris Dies F) * 942081 

BOMCNT OW SHELL SECTION FtOM 

FORCES APPLIED TO HANGER 

Fix peos@r 60010+ On. 

Fi PunG* 60084 * G00 1b. 

My ef, bf + 5#600 2040'5000lb 

AFEECTIE SHELL MOT” LAC" L008 OF MALE 
ee Me , Lees « Fem. 
= “Zz 2 em 


OncutaTinG papal FORCES aarudO TU IMCL, 


Ff gies M 7 
iy ire * + Ow a of mts 


623000, 
4 Pach es) orred +4090 Fras awe 


“Tora Raora. FORCE 
Beletly 2005010 +4090 Hammeres. FIGURE 9 


PART B: With tensile force (T) and bending moment 
(M. per 1" wide ring of this shell resulting from 
radial] forces (fi) applied at the four hangers, cal- 
culate the tensile (o-,) and bending (0) stresses at 
the hangers. 
FROM TABLE I FROM PART A 
K, = 0500 £1,090 Yiew.nne 
Teng, 10500 #4090 * 545 Wim.sme 
Alacra errno) «Wey 919.99 *, FF IQIN 
Oe, * f. SF 6 1650p 
Jaustinuilichoer dive «6010900 4B» ICO HB. 
SECTION MODULUS 5 DYN, o6)m! 


THEN @ * 4 + GaP + 50.800p0 (EICESSIVE) 


Since this bending stress in the ring ofthe shell 
is excessive, it is necessary to stiffen the shell in 
this region. To accomplish this, two %" x 2" ring 
stiffeners are added as illustrated, Figure 10, 


FIGURE 10 
4 2°KNGS mre 
1o°| | 
cs i : ese 
g “en 


Fhe Ld 
ca | 


The effect of the bottom ring will be considered 
since it will apply radial tensile forces tothe built- 
up ring and shell section. Using the method of find- 
ing moment of inertia by adding areas (Sect. 2.3), the 
properties of this section are as follows: 


TABLE IT 


creas 
122 
[Toran —[as7| [res a0 _| 


THEN MOMENT OF eS ABOUT NEUTRAL ANS WL BE 
t 208? 
dng Ty + 3282 - EF 0532in* 


AND NEUTRAL AXIS WILL BE 


Mm, 4705. 
HA Cyt az? 7057 +héld in. 


The radial force (F) acting on the ring section 
and resulting from the vertical force (P) is-—-- 


F = 

Fae, $0085 | 4 

Fs aS: + 1000 : 4 
a: 

Poff, 


FIGURE 11 
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PART C: Recalculation of the tensile (o.,) and bend- 
ing (oc) stresses at the hangers yields the following 


results: 


FROM TABLE | THE NEW F 
My © A500 Fe 4,000 
I= KF © 9800 «4000 « 500 /b. 
A (rom reew macez) © /,057 sein. 


Fre Tass T Me Koro fi," Ke Fy" 188 0 see e621 © O¢S invd, 


Mc, BFS 1695 = 
THEN a al Ss 2,690 psi 


The hoop stress ofop= 1,888 psiinthe shell will 
be assumed to be reduced when considered to be act- 
ing over the entire cross-section of the built-up ring 


section: 


Hangers and Supports / 4,.7~5 


AREA SMELL PY RING SECTION 
AREA OF RING SECTION 
469 *. IF 

4057 


%, © 4086 * 


O,, 


» § 4866 « 


Sp * 990 psi 
Combining these stresses inthe outer fiber of the 
lower ring, adjacent tothe hanger, we findthe maxi- 
mum shear Stress (tma) to be-- 


a, a ala eel PAT 
o, °9 poarron BF LOWER MING. 
Qe qZ “+m +a, 99900473 + 2690 
gq q* F/SSps: 
% Tone © sare * 2070ps1 
@ STRESS WITHIN REASON 


FIGURE 12 DESIGN OK 
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Sample Problem 


TI-59-9 
Program: 
OD = 12.75” 
T = 0.330" 
P = 100 psig 
N=4 
600 # 
Key 
Step Input Stroke Display Printer Comments 
1 E 0. Initialize program. 
2. 12.75 A 12.75 12.75 OD | Store pipe OD in ROI. 
3 33 A 0.33 0.33 T | Store pipe T in R02. 
4 100 A 100. 100. P | Store P in RO3. 
5 3 A 3. 3: DR | Store DR in R04. 
6 25 A 0.25 0.25 TR | Store TR in ROS. 
7 2 A 2: 2. HR | Store HR in R06. 
8 5 A 5. 5. A | Store A in RO7. 
9 600 A 600. 600. F | Store F in RO8. 
10 4 A 4, 4, N | Store N in RO9. 
11 90 A 90. 90. ANGL | Store ANGL in R10. 
12 B 0. 
0.716 e| Program calculates the distance from 
1.613 NA the outside of the ring to the neutral 
1, INA axis, the I of the ring—pipe wall area, 
and the length of pipe wall affected. 
STRESSES Prints all of the above. 
990. HOOP | Calculates the hoop stress, tensile 
474, TENS | stress, and bending stress and com- 
2577. BEND | bines all of the above into a maxi- 
2020. COMB | mum shear stress. 
Prints all of the above. 
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Coding Form 


TI-59-9 Support Ri 
Program Number 59 pport Ring Stresses : 
Loc Code Key Comments Code Key | Comments Loc Comments 
ee Input routine: lp 16 120 
Mi Uses R00 as a 330 0= Led 
Q02 69 pointer. t TO 122 
008 20 ie oF 123 Total moment of 
004 63 ©5 | Transferred inertia] 124 inertia of ring/wall 
aos an 43 RCL | of area is stored in} 125 - | cross-section 1s 
O06 63 16 16 | R18. 126 2CL | stored in R19. 
oo? oo a5 = 127 17 
cage 73 42 STO 128 é 
poy Oe ig_i8 129 = 
O10 69 43 REL | Area of ring is 130 3 REL 
O11 06 05 05 |summed into R15 | 131 1S 
Qi2 31 65 x | and put into 32 = 
O13 76 Main program. 43 RCL | test register. 33 sTo 
Qi¢ 12 a8 06 | Distance from 34 12 | 
ais) 43 35 = | outside of ring 35 REL | Distance from 
O16 G1 44 SUM | to center of ring is] 13 17 | outside of ring 
O17 75 Mean radius is 15 15 | stored in R16. = to neutral axis is 
Q18 43 RCL | calculated and 32 XY ZL | stored in R20. 
O12 02 2 | stored in R29; e is 43 RCL 
020 S4 >} calculated and o4 6 
021 55 + stored in R14. 55 <= 
= ae Ss ‘ Calculated values 
ST 42 STO a5 of e, NA, and 
29 16 16 o4 INA are printed. 
zs * | Area moment of 69 
c ring is summed 4 
a into R17. 43 
va Transferred inertia id 
er of area is summed 98 


into R18. 


o 
oo 
0 
nwo 
ee 
an 
a 


033 42 STD : 

O34 14 14 oS 

Q35 85 x 2(e) + T is stored o1 12 

036 02 2 in R28. Area of OL 1 

027 85 + pipe wall in vicinity nerti o3 3 

Q38 43 RCL | of ring is stored in aes oe oo 0 

039 05 O05 |RIS. 9 65 wall in the vicinity 69 OF 

040 95 = 100 43 RCL |of the ring is G4 U4 

O41 42 STO 101 02 02 | summed into R18. i 

042 28 28 io2 45 yx 20 

043 85 x 103 03 3 63 

044 48 RCL 104 55 + 06 

O45 02 02 i105 a1 1 38 

046 95 = 106 a2 2 ao 

a47 42 7a io? 95 = a2 

048 15 15 Q 4a : 

: 108 44 SU a 

049 3x Distance from 109 te : Ae Gs 3s 

eee +3 pc. | Cutside of ring to | 110 43 RCL |Moment of inertia OL 1 
et ae mean radius of i111 05 5 | of ring section is OL 1 

OS 02 02 |pipeisstoredin {41> ¢5 x | summed into R18. a3 3 

053 55 = |RI6,and 113 43 RCL é9 OF 

034 02 2 multiplied by the | }i44 Ge Oe o4¢ a4 

O53 85 + area to get area 115 45 yxX~ 2 RCL 

O56 43 RCL |moment value. 1 le 204 19°0«1a 

057 06 06 |Thisisstoredin |jj5 se > 69 OP 

po a8 _- R17. 118 ai 1 oé6 o6 | 
5 42 8 119 O2 2 43 RCL 
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Loc Code Key Comments 


Code Key Comments 
O ue x 


18 0 os os F, and F, are 

181 22 XIT | calculated from F 
182. 43 RCL Jand ANGL. F, is 
183° 10 10° |stored in R21. 

184 37 F/R |F is stored in R22. 
185 42 $To 
186 22 2 


acp is calculated 
(HOOP). 


187 32 4IT 
188 42 To 


32 | Print “TENSILE 
: STRESS.” 


189 21) 24 249 
190 3 RCL |p is calculated and} 250 
191 22 22 |stored in R23. 251 
192 65 x 2° 


193 43 RCL 
194 07 O7 


WARE OR OP 


Moo OO GeO oO 


196 43 RCL 
197 04 O04 
198 95 = 
199 42 sToO 
20023 23 


oct is calculated Print “BENDING 


202 09 09 |using values in STRESS.” 
203 83 + memory and F’. 

4 8 5 Oct is stored in 

206 95 = R24. Print 


“STRESSES.” 


67 U2 3 
268 06 6 
269 03 3 
270 OF F 
271 O08 3 
272 05 5 
273 69 OP 
ac 2 
ake “a C Print combined - 
o> & oF 7 stress combining 
BI? os 3 acb, oct, and 
278 o4 6 Hoop stresses. 
arg 0F 3 
2¢0 dé A 
"281 Ob 2 
2 uF 7 
o3 3 
O56 6 


F’ is used with the’ 


227 00 oO | mean radius, NA 
228 22 TN | and INA to 

229 59 INT | calculate acb. acb 
230 3.x is stored in R25. 


e33 65 x 35 
2340 43 Re 55 
235 29 (ag 3 az 
236 65 x 3 a5 
23? 43 RCL 35° 42 
238 20 oR 3 26 
239 55 25989 


DSN OB Grape G10 Gm OB 


Pa POND Po Fo DS PO Pate Ho fee hg hes ha 
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Comments Loc Code Key Comments Loc Code Key | Commenty — 
420 02 2 
421 02 2 
422 07 7 
423 ST 
424 1 
3B c Initialize 4 ze 2 
vob s) ram, aed 
467 22 ny [POR bod 
268 52 FI¥ |Clearallmemories,| 422 92 2 
69 4? CH2 9 42 3T 
370 29 CP 32g 
371 0% % | Float decimal 31 02 2 
572 02 2 |point. 2 02 & 
273 OL 4 33 09 9 
374 08 6 434 9%, 
375 4z STO oo te 
376 i O01 | Load registers a6 8 
377 02 2 |withalphacodes | 497 93 @ 
478 0? 7? | for input routine, ae 56 a 
oo, ae 440 08 5 
381 03 3 444 00 f 
382 0% 2 442 00 OG 
32 % 3 ew 
48% 42 6T0 ae Ae 
264 03 «08 oe ae 
2 " a wo 
ae 446 06 6 
287 0% 4 447 42 TD 
386 09 8 vers a 
390 04 04 450 06 6 
332 ) Oo oe 
ar > Lea 
292 03 2 aoa 08 
3946 05 & Pane 2 
399 42 870 495 9 
396 05 05 oe ae 
397 02 Z wf BG 
498 0B % 452 01 1 
499 02 3 ; @ 
400 08 & o 
$01 42 6TO ? 
402 06 Ob 
402 OJ J 
494 043 G 
405 42 8T0 
496 O7 07 
407 02 2 
4608 O1 1 
409 42 STO 
410 Og 08 
414 03 % 
412 OL 
419 42 STO 
4i4 09 09 
415 ol f 
416 09 3 
ai7 03 3 
418 O1 | 
439 02 2 
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Pipe outside diameter (in) 

Pipe wall thickness (in) 

Internal pressure (psi) 

Depth of ring (dimension along pipe axis) (in) 
Thickness of ring (in) 

Height of ring (dimension out from pipe wall) (in) 
Height of point of application of support force (in) 
Applied force (Ibs) 

Number of points of support (1, 2, 3, 4, 6, or 8) 
Angle of applied force (degrees) 


Length of pipe wall affected (in) 
Distance from outside of ring to neutral axis (in) 
Moment of inertia about neutral axis (in) 


Hoop stress (psi) 

Tensile stress (psi) 

Bending stress (psi) 

Total combined shear stress (psi) 


BSS OSS 


NAA Gy 
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Program HP-41CV-9: 


Introduction: 


HP-41CV-9 calculates the stresses in circular reinforcing 
support rings utilizing the analysis developed by Omer 
Blodgett and found in Design of Weldments, section 
4.7. The program calculates and prints the stress values 
and the support section moment of inertia, neutral axis, 
and affected length of the pipe wall. 


Nomenclature: 


Ten items are input by the user: 


OD: Pipe outside diameter (in) 
T: Pipe wall thickness (in) 
P: Internal pressure (psig) 
DR: Depth of the ring (dimension along the pipe 
axis) (in) 
TR: Thickness of the ring (in) 
HR: Height of the ring (dimension out from the 
pipe wall) (in) 
A: Height of point of application of the support 
force out from the pipewall (in) 
F: Applied force per support point (Ibs) 
N: Number of points of support 


(1, 2, 3, 4, 6, or 8) 
Angle of applied force (degrees) 
Two “user” keys are used to execute the program: 


E: Initialize program (LN in USER mode) 
IVS: Used to input data 


The program prints out the following data as output: 


Support Ring Stresses 


e: Length of pipe wall affected (in) 
NA: Distance from outside of ring to the 
neutral axis of the support ring (in) 
INA: Moment of inertia about neutral axis (in') 
ahoop: Hoop stress (psi) 
ao tens: Tensile stress (psi) 
obend: Bending stress (psi) 
tcomb: Total combined shear stress (psi) 
Method: 


HP-41CV-9 uses the analysis developed by Blodgett 
and can be found in detail in Design of Weldments, 
Section 4.7, and in Design of Welded Structures, Sec- 
tion 6.6. In the following, there are some excerpts from 
these discussions that may be used as reference. Fora 
full understanding of the problem the user is encour 
aged to study Blodgett’s discussions in detail. The basic 
idea is that the ring and the pipe wall make up a support 
structure that distribute the load to lower the shell 
stresses in the pipe. A moment of inertia of the support 
structure is calculated, and with the input support fore, 
a set of support stresses is then calculated. 


Limitations: 


HP-41CV-9 only analyzes one set of data ata time. None 
of the data that are input is carried over to the next 
analysis. The analysis only can analyze a certain set of 
support conditions, that is, where the number of sup- 
port points on the ring is 1, 2, 3, 4, 6, or 8 points, 
distributed equally around the ring. There is no interpo- 
lation by the program. 
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Keyboard Card Labeling 


BREA AA 
BAAAA 
See88 


KEYBOARD 


— fh 
i 
ss 
| 
see 


SYSTEM 
CONFIGURATION 


User Instructions 


Program Number _HP-41VC-9 Title Support Ring Stresses ; 


Step Instructions Input Keystroke Display 

1 Read in magnetic cards, E a 

2 InputOD. oD BIS - 

3 Input T. T R/S Le 

4 Input P. P R/S ee 

5 Input DR. DR R/S is 

6 Input TR. TR R/S og 

7 ‘Input BR. HR R/S 3 

8 Input A. A B/S - 

9 Input F, ER B/S _ 

10 InputN. N - ” 

11 Input X. x BS 
e 
NA 
INA 
STRESSES 
o hoop 
o tens 
o bend 
tcomb 
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Registers, Flags, Assignments 
Program Number _HP-41CV-9 __-TjtJe _ Support Ring Stresses 


DATA REGISTERS DATA REGISTERS 


12 Hoop stress 


14 e 

15 Pipe area 
16 4 Init 

aa SiC Set Indicates Clear Indicates 


FLAGS 


ASSIGNMENTS : 
Label Key Function Key 


30 RNG E(15) 


257 


Example Analyses 


OD= 12.758 
T= 6.338 

P= 100.908 
DR= 3.000 


INA=0.529 


STRESSES 


crhoop=998, 
otens=474, 
abend=2,577. 


~rconb=2,828, 


Source Documentation 


47-4 / Stationary-Member Design 


It should be noted that there seems 
to be a copying error in this sample 
problem. In figure 10, the value of 
"Cb " is noted as 1.695. Yet in the 
moment of inertia calculations above 
figure 11, the calculated value of 
"Cb " is 1.613. This latter value 
4g correct, but the former value 

is used in the rest of the example. 
In the QA example of this program, 
this same problem is analysed. The 
values printed out by the 

calculator are those found when the 
"Cb " value is 1.613". 


Problem 2 


PART A: Fourhangers are used to support a verti- 
cal 12" stand pipe, Figure 9. Determine the total 
radial force acting on the shell as a result of the 
force (P) applied to the hangers. 


DAT) 
P8100 pu | P+ 600la| ae Sov, 
Rradia.| 290° | 680 
byt SS. | Ee Son, | 6 A EERS 
Cucoarme TeransSrenss m Sea, From 


Wreanat Paes3suae 
a = + Beret. 1 888pe 
01a 
a, iB HST 242es 


BEWENT OW SHELL JECTION FROM 
FORCES APPLIED TO MANGER 


Fis peed 60010+ Ow. 
f° PumO* 6008} © GOO 1b 


My! eh (OF + 52600 0010: 50001b 
OFAECING Sait ik. pag si Cacat 0k OF a 
i eeaees — «72m. 


surniad Bagea, FORCES AerURO Te SELL 


Lire * eae | OMe meson tis 
61 KOO 
Lo ilera eon YOM ms 


“Toran Ragiat FORCE 


fh eLyt0+ 400 * 4.090 Mesemeormicc 


FIGURE 9 


PART B: With tensile force (T) and bending moment 
(M.) per 1" wide ring of this shell resulting from 
radial forces (fi) applied at the four hangers, cal- 
culate the tensile (o,) and bending (a) stresses al 
the hangers. 
FROM TABLE I FROM PART A 
K, © 0.500 414090 Yiamns 
Tint, 60500 ©4090 * 585 Yims 


Aaron or rms) 1 Mtg 81 7IF "JZ IGIN. 


GF SE 0 1650p 
fran Tao.e |W Kien, Mg hy ry * 86940904 60 LO om ta. 


SECTION MODIS S* 5 ey) © Elm! 
THEN @ + Pea ZB * $4800pu (EXCESSIVE) 


Since this bending stress in the ring ofthe shell 
is excessive, it is necessary to stiffen the shell in 
this region. To accomplish this, two 4" x 2" ring 
stiffener$ are added as illustrated, Figure 10. 


FIGURE 10 
Groans east 
~ aa ae 
j bea PL 


The effect of the bottom ring will be considered 
since it will apply radial tensile forces tothe built- 
up ring and shell section. Using the method of find- 
ing moment of inertia by adding areas (Sect. 2.3), the 
Properties of this section are as follows: 


prcsetranl ¢ ee te 
$57 leans [4205 | 267 
THEN MOMENT OF INERTIA ABOUT NEUTRAL As mite BE 


tat Itt + 3262- 4708", =Q532iné 


ANO NEUTRAL AXIS WiLL BE 
M4705 


Mae Cy: a 1057 =+le6ls in. 


The radial force (F) acting on the ring section 
and resulting from the vertical force (P) is—- 


F TT 
_ Fee, 60085 y 
cary i alae. ' ¢ 
a 
Pe 
FIGURE 11 
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PART C: Recalculation of the tensile (o.) and bend- 
Ing (ow) stresses at the hangers yields the following 
results: 


FROM TRELE | THE NEW F 
Ky ° 0500 F* 4,000 


Te KF * 0400 «4000 « 500 ld. 
A (79m rrew maven) » 1,057 50./n, 
&, * z ee = 873 psi 
Fron Totes Te Koro My Ke F280 save nats © OES ini, 
Mc, G45 61695 ; 
THEN GF ae 2,690 psi 


The hoop stress of %,= 1,888 psiinthe shell will 
be assumed to be reduced when considered to be act- 
ing over the entire cross-section of the built-up ring 
section: 


Hangers and Supports / 4.7-5 


AREA SHELL PY RING SECTION 


Oc, * 4080 * anEA OF RING SECTION 
£69 # 5S. 
A, * 4068 * —“To57 


Oe, = I90 psi 


Combining these stresses inthe outer fiber of the 
lower ring, adjacent to the hanger, we find the max|- 
mum shear stress (tma) to be-- 

0 ES noe Ine sab 
a.s9 Serie. 
Ai eg, +4, 0990 +473 + 2690 


* 4 


é Qe F/ST ps: 
& Yioue 465-2 © 2070psr 


i STRESS WITHIN REASON 
FIGURE 12 DESIGN OK. 


gq 
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Sample Problem 
HP-41CV-9 Title Support Ring Stresses 


Program: 


Sample Problem (Sketch if Desired) 
P = 100 psig 


12.75" 


Neutral axis 
\ 


| 
| 
| 
Ma" 1 
| 


Input Function Display Comments 
E OD= Initializes program, prompts for OD. 
12.75 R/S ‘= Stores OD in RO1; prompts for T. 
33 R/S P= Stores T in R02; prompts for P. 
100 R/S DR= Stores P in R03; prompts for DR. 
3 R/S = Stores DR in R04; prompts for TR. 
25 R/S HR= Stores TR in ROS; prompts for HR. 
2 R/S = Stores HR in R06; prompts for A. 
5 R/S = Stores A in RO7; prompts for F. 
600 R/S =/ Stores F in R08; prompts for N. 
4 R/S ‘= Stores N in RO9; prompts for x. 
90 R/S Stores X in R10. 
e=0.716 The program first determines the moment of inertia of 
NA = 1.613 the support structure and finds the distance from the out- 


INA = 0.529 side edge of the ring to the neutral axis. Then the length 
of wall that is affected on either side of the ring is 
calculated. 

STRESSES These three pieces of data are printed. 

Then the program calculates the stresses in the ring from 
ohoop = 990. the input values of force and angle, the shape coefficients 
Otens = 474, that are stored in memory, and the moment of inertia 
obend = 2,577. data that was calculated earlier. These stresses are then 


tcomb = 2,020. | printed. 
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Coding 


Form 


Support Ring Stresses 


Program Number _HPHICV-9 Title 
Step! Key Key Comments Step/ Key Key Comments Step/ Ke K 
Line Entry Code Line Entry Code a itty eb Comments 
BI*LBL “RNG* | Initialize program. | 5@ GTO A 99 Yt calculated and 
, Clear all oo : x ‘alcu ated an 
B Cus oe St ADV Main routine. 108 * summed into R18. 
.233/34, 36, and 38 with | 92 RCL @1 ean radius is 1@1 12 
@4 STO 31 | data from Table 1, | 53 RCL 02 ealeulh tes ai 102 7 
@5 318 54 - eae 103 ST+ 18 
86 STO 32 90 2 184 RCL @5 Moment of inertia 
87 289.188 56 / 105 RCL 86 of ring section 
Q8 STO 33 57 STO 29 106 3 calculated and 
89 568. 136 59 RCL 82 eis stored in R14. | 107 YtX sunning Inte RIS, 
= a; rs 
; 68 4 189 12 
12 STO 36 61 7 118 7 
13 1287. 665 62 SQRT 111 ST+ 18 
14 STO 38 : 63 STO 14 112 RCL 18 Moment of inertia 
15 1.81 Set pointer. 64 2 d’ (length of 113 RCL 17 of support section 
16 STO 48 65 * pipe wall affected | 114 X42 is calcualted and 
{7 “OD° Load alpha labels 66 RCL 85 on either side of 115 RCL 15 stored in R19 
18 ASTO 82 in RO1-R10. 67 + ring) is stored in 16 / (INA). 
19 °T 68 S10 28 117 - 
28 ASTO 62 69 RCL 62 Area of pipe wall 118 STO 19 
al "P* 78 * stored in R15. 119 RCL 17 Distance from 
= i a 71 $T0 15 12@ RCL 15 outside of ring to 
Ze" 72 RCL 62 Distance from 121 7 neutral axis is 
. ms 64 732 pias of ring to 122 $10 20 stored in R20 (NA). 
26 ASTO a5 747 stored in RAS. Se Senet eae 
27 “HR 75 RCL 66 , 124 ARCL 14 “INA” are printed. 
28 ASTO 66 oe agony 
py 7? STO 16 126 ADY 
29 A 5 78 * Area moment is 127 “NA=* 
ad 79 $1017 stored in R17. 128 ARCL 26 
» an a8 88 RCL 16 Transferred area 129 ACA 
33 “ye 81 * ad is stored in 130 ALY 
18. eTWo-" 
34 STO 09 EPR 5 7 132 ARCL 19 
Be Area of ring 
36 ASTO 10 84 RCL 66 summed into R15. | 133 ACA 
3? FIX 3 Input routine. a th 15 134 AMY 
38¢LBL A Uses ROO a pointer 135 ADV 
39 CLA anda Counter: 8? RCL 06 Distance from ¢ of 136 RCL 18 fl and f2 are 
48 ARCL IND a6 88 2 ring to outside of 13? RCL 88 calculated using F 
4 “be 99 7 ring stored in R16. | 138 P-R and 4. fl is stored 
dee 1 96 STO 16 139 STO 21 a nai 
43 PROMPT 91 x Area moment 148 ROY ; 
44 ACA 92 ST+ 17 summed into R17. 141 STO 22 
45 CF 12 93 RCL 16 Transferred area 142 RCL 67 
46 ACK 94 + inertia summed 143 * 
47 PREUF | 95 STH 18 abate 144 RCL @4 
49 STO IND 8 When all data is 96 RCL 28 Moment of inertia 145 7 
49 SC a@ input, the main 97 RCL 92 of ring/wall section! 146 $T0 23 ; ¢ 
routine starts. 98 3 Pointer to data in 
147 36 ex eet 
y 1s 
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Step! Key Key 
Line Entry Code 


Comments 


Step) Key Key Comments Step/ Key Key Comments 
Line Entry Code Line Entry Code 
148 RCL 09 determined and R 
149 + stored in ROO, i eg 
158 STO 66 199 "TENS=" 
151 RCL IND @8 | K, is decoded 208 ARCL 24 
ie | fem memory nd | 20 
153 1600 0 calculate | 292 ALY 
154 / rok doelin| 29 Print bending 
155 RCL 23 204 SF 12 stress. 
156 * 205 ACCHR 
157 RCL 15 266 CF 12 
158 7 267 “BEND=" 
159 STO 24 268 ARCL 25 
160 RCL IND @8 | Kz is decoded from} 269 ACA 
161 FRC memory and used | 216 ADY 
162 RCL 23 fomainulate the 2i1 ADV Calculate and 
163 + pieotiogored in| i2.l¢ ioe 
164 RCL 29 R25. 213 SF 12 onesies 
165 * ys 214 ACCHR 
166 RCL 26 215 CF 12 
167 * 216 “COMB=" 
168 RCL 19 217 RCL 12 
169 / 218 RCL 24 
178 $T0 25 219 RCL 25 
171 RCL 83 Hoop stress is —| 228 + 
{72 RCL 29 calculated and 221 + 
173 * stored in R12. 909 2 
174 RCL 28 223 / 
175 * 224 STO 26 
176 RCL 15 “225 ARCL 26 
17? 7 226 ACA 
178 $10 12 227 ADY 
179 “STRESSES | Print 228 ALY Reinitialize. 
188 SF 12 “STRESSES.” 229 ADY 
181 FAT 238 CF 13 
182 ACA 231 GTO "RNG" 
183 PRBUF 232 END 
184 FIX 8 Print hoop 
185 ADY stress. 
186 9 
187 SF 12 
188 ACCHR 
189 CF 12 
198 SF 13 
191 “HOOP=" 
192 ARCL 12 
193 ACA 
194 ADY 
195.9 Print tensile 
196 SF 12 stress, 
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Internal Pressure 


Chapter 1 0 


Pressure Reinforcing Pads 
per ASME/ANSI B31.3 


Program TI-59-10 


Introduction: 


TI-59-10 performs calculations set out in ASME/ANSI 
B31.3, 1980, to determine the need for and the dimen- 
sions of the reinforcing pad needed to contain internal 
pressure at a stub-in connection. The program prints 
out all of the relevant data, such as reinforcing zone 
dimensions and required area to be replaced and the 
thickness and width of the required pad, or the mes- 
sage “NO PAD” if there is sufficient area in the header 
and branch for pressure containment. 


Nomenclature: 


Sixteen pieces of data are needed to execute the pro- 
gram: 


HOD: Header outside diameter (in) 
HT: Header nominal or purchased wall 
thickness (in) 

HPSI: Design pressure for the header (psig) 
SMAX: Allowable stress for the header (psi) 
HCOR: Corrosion allowance for the header (in) 
HDEG: Design temperature for the header (°F) 
SMLS: Fabrication code for the header 

0 = Plate-fabricated pipe 
1 = Seamless pipe 

BOD: Branch outside diameter (in) 

BT: Branch nominal or purchased wall 
thickness (in) 

BPSI: Design pressure for the branch (psig) 
SMAX: Allowable stress for the branch (psi) 
BCOR: Corrosion allowance for the branch (in) 
BDEG: Design temperature for the branch (°F) 
SMLS: Fabrication code for the branch 


(see above) 


MATL: Material code for the connection 

1 = Ferritic steel 

2 = Austenitic steel 

3 = Other ductile materials 

4 = Cast iron 

Angle of intersection of the branch and 
header (degrees) 


ANGL: 


The program calculates the following data: 


HT’: Nominal wall thickness of the header less 
mill tolerance and corrosion allowance (in) 
BT’: Same as above for the branch (in) 
H-3A: Minimum wall thickness of the header 
according to equation 3A of ANSI B31.3, 
Section 304.1.2 (in) 
B-3A: Minimum wall thickness for the branch 
(in) 
D1: Effective length removed from pipe at 
branch (in) 
D2: “‘Half-width” of reinforcement zone (in) 
AR: (A1) Reinforcement area required (in*) 
L4: Height of reinforcement zone outside of 
run pipe (in) 
AH: (A2) Excess area in the header wall (in) 
AB: (A3) Excess area in the branch wall (in?) 
AA: Area available for reinforcement 
(AH + AB) 
THCK: Pad thickness (in) 
WIDE: Pad width (in) 
Method: 


TI-59-10 performs all the calculations set forth in ASME/ 
ANSI B31.3 1980, Section 304.3.3. First, the corrosion 
allowance and the mill tolerance is removed from the 
input values of nominal branch thickness and: header 
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thickness. Mill tolerance for seamless pipe is 12% per- 
cent For pipe fabricated from plate, mill tolerance is 
01 dk. The vahie to be used is decided by the user 
during input. Then the program calculates the mini- 
mum wall thickness needed to contain internal pres- 
sum, using Equation 3A in Section 304.1.2 of ANSI 
B31. 1980, for both header and branch.” Using these 
values and the other input data, the program deter- 
mines the area needed for pressure containment, the 
arm available in the header and branch walls, and the 
dimensions of the reinforcement zone. If the area avail- 
ae iS greater than the area required, the program 
Prints the message “NO PAD.” If the area available is 
insufficient, the program starts with a pad thickness 
of 125 in. and computes the pad width. If the width 
f3is within the reinforcement zone width, the program 
Prints the ped dimensions. If not, the pad thickness is 
increased by .0625 in. and the process starts again. 

Tikere are two points the user should understand 
about the assumptions the program makes. 


as ee povo- + seouuutes no excess weld credit. 
2. The program assumes that Tr is always zero 
when calculating the value of L4. 


Limitations: 


TI-59-10 performs one branch connection at a time. No 
data are carried over from one execution to another. The 
program is self-initializing. After the initial run, the 
Program initializes itself. The equations used are not 
applicable for pipes under external pressure. There is 
no check of the limits of the thickness the pad may be. 
There is also no way to calculate a branch connection 
made up of different materials. 

“The value of Y used in Equation 3A is determined 
by the program, using the input values of HDEG and 
BDEG. When necessary, Y is interpolated between the 
two values found in Section 304.1.2. 
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User Instructions 


Program Number _TI-59-10 Title Pressure Reinforcing Pads 


Step Instructions Input Keystroke Display 
1 Read in magnetic cards (3). CLR 1, 2, or 3 
2 Initialize program. E 0 
3 Input header outside diameter. HOD A HOD 
4 Input header thickness. HT A HT 
5 Input header design pressure. HPSI A HPSI 
6 Input header allowable stress. SMAX A SMAX 
1 Input header corrosion allowance. HCOR A HCOR 
8 Input header design temperature. HDEG A HDEG 
9 Input header seamless flag. SMLS A SMLS 
10 ‘Input branch outside diameter. BOD A BOD 
11 Input branch thickness. BT A BT 
12 Input branch design pressure. BPSI A BPSI 
13“ Input branch allowable stress. SMAX A SMAX 
14 Input branch corrosion allowance. BCOR A BCOR 
15 Input branch design temperature. BDEG A BDEG 
16 =‘ Input branch seamless flag. SMLS A SMLS 
17 Input material code for junction. MATL A MATL 
18 Input intersection angle. ANGL A ANGL 
19 Execute program. B 
HT 
BT' 
H-3A 
B-3A 
Di 
D2 
AR 
LA 
AH 
AB 
AA 
THICK 
WIDE 
(or) 
NO PAD 


269 


Data Register Contents 


REGI- REGI- 
STER DATA STER DATA 
23003216 "H OD" 
2337 "He" 
23333624 "HPSI" 
36301344 "SMAX" 
23153235 "HCOR" 
23161722 "“HDEG" 
36302736 "SMLS" 
14003216 "B OD" 
1437 "BT" 
14333624 "BPSI" 
36301344 "SMAX" 
14153235 "BCOR" 
14161722 "BDEG" 
| 36302736 "SMLS" 
30133736 "MATL" - 
13312227 "ANGL" 
233765 "HT" 
143765 "BT" 
23200413 "H-3A" 
14200413. "B-3A" 
1602 "D1" 
al D1 51 1603 *“D2" 
22 | D2 52 1335 "AR" 
23 «| AR 53 2705 "LA" 
24 |LA 54 1323 "AH" 
25 | AH 55 Ty 314 "AB" | 
26 | AB 56 1313 "AA" 
27 +| AA 57 37271526 "“THCK" 
28 | THCK 58 43241617 "WIDE" | 
29 | WIDE 59 Various data re) 


The alpha codes in R30-R58 are stored on magnetic card side 3. 
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NOMINAL 
reress Yu 


NSS 
\ ee -—¥ 


i] 
ENFORCEMENT . 
ZONE 
REINFORCEME! 
| 1 AREAS oth 


MULTIPLY a AREA 
By (2-SIN B) TO a 
REQUIRED AREA 
KU 


ia 
| 
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.S 


ZA MMM LLU 


AS 
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NOTE: THIS FIGURE ILLUSTRATES THE NOMENCLATURE OF 304,3.3. IT DOES NOT 
INDICATE COMPLETE WELDING DETAILS OR A PREFERRED METHOD OF 
CONSTRUCTION. FOR TYPICAL WELD DETAILS, SEE FIGURE 327.4.4D 


(a) FIG. 304.3.3 BRANCH CONNECTION NOMENCLATURE 


ONIdId AUNSSAUd XOdA AOD AWSV 


ONIdId AMANISTA WNATOULAd NV LNW1d TVOIWAHO 


NOLLIGG 0861-€'1€4 JWSW/ISNV 


CE vOE Old 


uoljeJUaWNd0G 8d4NOS 


AN AMERICAN NATIONAL STANDARD 


CHEMICAL PLANT AND PETROLEUM REFINERY PIPING 


304.33 Reinforcement of Welded Brench Con- 
pections. Added remforcement is required to meet 
the criteria in 304.3_3(6) and (c) when it is not pro- 
vided inherently in the components of the branch 
connection. Sample problems illustrating the calcula- 
Sons for branch reinforcement are shown in Appen- 
&x HL 


(a) Nomenclsture. The nomenclature below is 
used in the pressure design of branch connections. It 
is lostrated in Fig. 3043.3, which does not indi- 
cate details for construction or welding. Some of the 
terms defined in Appendix J are subject to further 
Gefinitions or variations, as follows: 


& = subscript referring to branch 
d, = effective length removed from pipe at branch 
¢@; = “half width” of reinforcement zone 


= d, ot (7, -¢) + (T,,-¢) +d; /2, whichever 
is greater, but in any case not more than Dy 


& == sobscript referring to run or header 
Le 


beight of reinforcement zone outside of run 
Pipe 


2S(Th - c) or 25(Tp - c) + Ty, whichever is 
less 


Ty = mimimom thickness of reinforcing ring or 
seddle made from pipe (Use nominal thick- 
fess if made from plate.) 

= 0, if these is no reinforcement pad or saddle 
1 == pressure design thickness of pipe, according 


to the appropriate wall thickness equation or 
Procedure in 304.1. For welded pipe, when 
the branch does not intersect the longitudi- 
n2l weld of the run, the basic allowable 
stress, S, for the pipe (see Appendix A, Note 
16) may be used in determining f} for the 
purpose of reinforcement calculation only. 
When the branch does intersect the longi- 
tudinal weld of the run, the allowable stress 
(SE) of the run pipe shall be used in the cal- 
culztion. The allowable stress (SE) of the 
branch shall be used in calculating tp. 


B = smaller angle between axes of branch and 
ran 
(b) Required Retnforcement Area. The reinforce- 


Ment area A, required for branch connections under 
intemal pressure thal] be: 


ANSI/ASME B31.3-1980 EDITION 


304.33 
Ay = (ty, d1) (2 - sinf) (6a) 

and under external pressure shall be: 
Ay = (thd, ) (2 - sing)/2 (6b) 


(©) Reinforcement Area: The reinforcement area 
is the sum of Areas Az + As + Ay defined below, and 
shall equal or exceed the required reinforcement arca, 
Ay, in 304.3.3(0). 


(1) Area A2. The area lying within the rein- 
forcement zone resulting from any excess thickness 
available in the run wall: 


Az = (2d2 -d3) (Th- th-0) Q) 

(2) Area A. The area lying within the re- 
inforcement zone resulting from any excess thickness 
available in the branch pipe wall: 

Az = 2L4 (Tp - ty - )/sinB (8) 

(3) Area A,, The area of all other metal with- 
in the reinforcement zone defined in 304.3.3(d) 
provided by weld metal and other reinforcement 
metal properly attached to the run or branch. In com- 
puting areas of weld metal deposits, the minimum 
dimensions required in 327.4.4 shall be used unless 
the welder is clearly instructed to provide specific 
larger dimensions, in which case the latter dimensions 
may be used in calculations. 
Materials used for reinforcement may differ from 
those of the run pipe, provided they are compatible 
with the run and branch pipes with respect to weld- 
ability, heat treating requirements, galvanic corro- 
sion, thermal expansion, etc. If the allowable stress 
for such materials is less than that for the run pipe, 
the corresponding calculated area must be reduced 
in the ratio of the allowable stress values before being 
counted toward the reinforcement area. No addition- 
al credit shall be taken for materials having higher 
allowable stress values than the run pipe. 


(d) Reinforcement Zone. The reinforcement zone 
is a parallelogram whose length extends a distance of 
dz on each side of the centerline of the branch pipe 
and whose width starts at the inside surface of the 
mun pipe (in its corroded condition) and extends to 2 
distance L4 from the outside surface of the run pipe 
measured perpendicular to this outside surface. 


(e) Reinforcement of Multiple Openings. When 
any two or more adjacent openings are so closely 
spaced that their reinforcement zones overlap 
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ASME/ANSI B31.3 PRESSURE REINFORCING PADS 


Example 1 


12. 75 H OD Header outside diameter (in) 
0. 375 HT Header nominal wall thickness (in) 
oO. HPSI Header design pressure (psig) 
20000, SMAY Header design stress (psi) 
0. 06% HCOR Header corrosion allowance (in) 
750. HIEG Header design temperature (F) 
1. SMLS Fabrication code (1 = seamless, () = plate) 
8.625 B oD Branch outside diameter (in) 
0. 322 BT Branch nominal wall thickness (in) 
oO, BPSI Branch design pressure (psig) 
SMAZ Branch design stress (psi) 
ECOR Branch corrosion allowance (in) 
BDEG Branch design temperature (°F) 
SMLS Fabrication code (1 = seamless, 0 = plate) 
MATL Material code 
AHGL Branch intersection angle (degrees) 
0. 265 Header milled and corroded wall (in) 
0.219 Branch milled and corroded wall (in) 
0.152 Header minimum pressure thickness (in) 
0.107 Branch minimum pressure thickness (in) 
6.185 Length removed from pipe at branch (in) 
&. 125 Half-width of reinforcement zone (in) 
12 292 Reinforcement area required (A1) (in*) 
0. 5¢7 Height of reinforcement zone (in) 
0. 879 Excess area in header wall (A2) (in) 
0.123 Excess area in branch wall (A3) (in*) 
Les Area available for reinforcement (AH + AB) 
0. Pad thickness (in) 
ds Pad width (in) 
MATERIAL CODES: 
1 = Fernitic Steel 


2 = Austenitic Steel 
3 = Other ductile materials 
4 = Cast Iron 


Pressure Pad Thickness 


(Solution for Example 1) 


HOD = 12.75" 
HT = 0.375" 
HT’ = (0.375)(7)/(8) — .063 = 0.2651" 
B OD = 8.625” 
BT = 0.322" 
BT’ = (0.322)(7)/(8) — .063 = 0.2188" 
= y= — 00000275) sn 
ci 2(20000 + (500)(0.4)) 
500)(8.625 
B= 3A = — Oe) _« o. 1067" 


~ 2(20000 + (500)(0.4)) 


pp a 82625 = 20-2188) _ 5 srg 


SIN (90) 


8.1874 
= 4.5776" 


D2 = greater of 8.1874 and (0.2651) + (0.2188) + 


LA = lesser of 2.5(0.2651) = 0.6628" and 2.5(0.2188) + 0 = 0.5740” 
AR = (0.1578)(8.1874)(2 — SIN(90)) = 1.2920 


AH = (2(8.1874) — (8.1874))(0.2651 — 0.1578) = 0.8785 
AB = 2(0.5470)(0.2188 — 0.1067)/SIN(90) = 0.1226 

AA = 0.8785 + 0.1226 = 1.0011 

AR’ = 1.2920 — 1.0011 = 0.2909 

Assume pad thickness = 0.125” 

Pad width = 0.2909/(2)/(0.125) = 1.1635” . less than D1 
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ASME/ANSI B31.3 PRESSURE REINFORCING PADS 


Example 2 


H OD Header outside diameter (in) 

HT Header nominal wall thickness (in) 

HPS 1 Header design pressure (psig) 

SMA Header design stress (psi) 

HCOR Header corrosion allowance (in) 

HDEG Header design temperature (°F) 

SMLS Fabrication code (1 = seamless, 0 = plate) 
B OD Branch outside diameter (in) 

BT Branch nominal wall thickness (in) 
ae BPSI Branch design pressure (psig) 
eocoo, SMAK Branch design stress (psi) 

-BCOR: Branch corrosion allowance (in) 

BEG Branch design temperature (°F) 

SMNLS Fabrication code (1 = seamless, 0 = plate) 
MATL Material code 

ANGL Branch intersection angle (degrees) 


ann 
"nun 


omoaw’ 


nm 
a" 


HT ° Header milled and corroded wall (in) 
ET! Branch milled and corroded wall (in) 
H-3A Header minimum pressure thickness (in) 
B-HA Branch minimum pressure thickness (in) 
Ti Length removed from pipe at branch (in) 
Tze Half-width of reinforcement zone (in) 
AR Reinforcement area required (A1) (in’) 
L4 Height of reinforcement zone (in) 
AH Excess area in header wall (A2) (in?) 
AB Excess area in branch wall (A3) (in?) 
HA Area available for reinforcement (AH + AB) 


ed 
Ce OO A ee a 
. nm so eo 8 ® 


. 


m1 
so 


i 
. 


THOR Pad thickness (in) 
WITE Pad width (in) 


Re 
. 


MATERIAL CODES: 
1 = Ferritic Steel 
2 = Austenitic Steel 
3 = Other ductile materials 
4 = Cast Iron 
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ASME/ANSI B31.3 PRESSURE REINFORCING PADS 


Example 3 


Les fa H On Header outside diameter (in) 
o,6o38 HT Header nominal wall thickness (in) 
id. HFSI Header design pressure (psig) 
zocod, SMA Header design stress (psi) 
OQ. : Header corrosion allowance (in) 
Header design temperature (°F) 
Fabrication code (1 = seamless, 0 = plate) 
Branch outside diameter (in) 
Branch nominal wall thickness (in) 
Branch design pressure (psig) 
SMA Branch design stress (psi) 
BCOR Branch corrosion allowance (in) 
BEG Branch design temperature (°F) 
SMLS Fabrication code (1 = seamless, 0 = plate) 
MATL Material code 
AGL Branch intersection angle (degrees) 


HT! Header milled and corroded wall (in) 
ET? Branch milled and corroded wall (in) 
H-3A Header minimum pressure thickness (in) 
B-aA Branch minimum pressure thickness (in) 
Ti Length removed from pipe at branch (in) 
le Half-width of reinforcement zone (in) 
AR Reinforcement area required (A1) (in?) 
L4 Height of reinforcement zone (in) 
AH Excess area in header wall (A2) (in?) 
AE Excess area in branch wall (A3) (in) 
AA Area available for reinforcement (AH + AB) 


Oho o2 03 


WN Pe tow 


HO FAL Pad thickness (in) 
Pad width (in) 


MATERIAL CODES: 
1 = Ferritic Steel 
2 = Austenitic Steel 
3 = Other ductile materials 
4 = Cast Iron 
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Sample Problem 


TI-59-10 


Program: 


Header size is 12" std, wt. 

Branch size is 8" sch 40, 

Design pressure for both lines is 500 psig, 
Maximum stress for both lines is 20,000 psi, 
Corrosion allowance for both lines is 0,063", 
Design temperature for both lines.is 750°F, 
Both Jines are seamless pipe, 

The material is ferritic steel, 

The branch intersection angle is 90°, 


Step 


Se eS SS HE CORN ERODE 
ARBDSEan ts 


o 


Key 
Inpul Stroke Display 

E 0 
12.75 A IZ75 
375 A 0.375 
500 A 500. 
20000 A 20000. 
063 A 0.063 
750 A 750. 
1 A 1, 
8.625 A 8.625 
322 A 0.322 
500 A 500. 
20000 A 20000. 
0.63 A 0.063 
750 A 750. 
1 A 1. 
1 A 1. 
90 A 90. 

B 


Printer 


12.75 
0.375 
500. 
20000 
0,063 
750. 
1, 
8.625 
0.322 
500, 
20000 
0.063 
750. 
I. 


I. 

90. 
0.265 
0,219 
0.158 
0.107 
8.188 
8.188 
‘1.292 
0.547 
0.879 


0.123 
1.001 
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Comments 


Initialize program. 

Input H OD, store in ROL. 
Input HT, store in R02. 
Input HPSI, store in RO3. 
Input SMAX, store in R04, 
Input HCOR, store in ROS. 
Input HDEG, store in R06, 
Input SMLS, store in RO7. 
Input B OD, store in R08. 
Input BT, store in R09, 
Input BPSI, store in R10. 
Input SMAX, store in R11. 
Input BCOR, store in R12. 
Input BDEG, store in R13. 
Input SMLS, store in R14, 
Input MATL, store in R15. 
Input ANGL, store in R16. 


The program calculates all of the 
data to determine if the branch 
needs reinforcement: Wall thick- 
nesses less corrosion allowances 
and mill tolerances, minimum wall 
thicknesses based on internal 
pressure, reinforcement zone 
dimensions, area required for rein- 
forcement, excess area in header wall, 
excess area in branch wall, and total 
area available (AH + AB). If AA is 
greater than AR, the message “NO 


; Key 
lep Input Stroke Display Printer C 
‘comments 


0.125 THCK) PAD” is printed. In this case, the 
1.163 WIDE] __ is not enough area and a padis 
required. The program calculates 


pad dimensions by assuming ay 
thickness and solving for the wid 
If the pad width falls inside the re 
forcing zone, the pad dimension, 


printed. 
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Coding Form 


-59- 7 Pressure Reinforci 
Program Number __ 1159-10 Title Eishie Redifoncing Pads 
Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
“SoC 3s ADV Initialize program. | J6U +2 REL 

S01 G2 2 | Set pointers for O61 59 59 
002 09 9 | input routine. 062 75 - 
003 42 STO O63 93 
004 29 29 064 oo 0 
005 25 CLR oé5 01 1 
006 42 STO 066 95 = 
007 oo GD O67 92 RTH 
Oe 91 RYS ?& LBL | Seamless pipe 
009 76 LBL 24 CE | tolerance is 12.5%. 
010 15 E 42 RCL 
oll ¢ 54°55 
Ole 76. LBL [Input routine. oS x 
O13 11 8 Uses ROO and R29 O 
O14 32 XT | for pointers. This section 
015 69 OP assigns Y = 0.7 
016 20 20 for T > 1000°F. 
O17 O1 1 
018 44 SuM 7 LBL |Subroutine: 
g19. 29a 239 17 B*  |Determines the 92 RTH | 
020 73 RC# 42 STO |value of Y for the 76 LBL /Y = 0.4 for 
Q21 29 29 39 549 |pipe wall thickness 60 DEG |T < 900°F. 
022 69 OP 04 4  |calculation. If 2 

23 O04 O4 32 M17 |temperature is less 
024 32 x9 4° 43 RCL |than 00°F Y= 0.4) 14 
025 69 OP ass 15 15 Y = 0.0 for cast 
0258 O06 O86 o86 67° €a iron. 
a2? 72 ST: O87 a0 LST 
az8 00 a0 as 43. RCL 
O29 9) R“S ase 59 59 Main program. 
020 76 LBL | Data printing ogg 32 “IT 
031 419 D° subroutine. Prints | ga, og 38 

$2 73 RC# |calculated values | gaz ag a 
033 O02 2 | with alpha labels, 9 9 42 RCL |All temperatures 
034 69 OP Uses RO1 and R02 G 1S 145 |are normalized 

35 04 O4 |aspointersand ROO] 99 E 67 EQ |to carbon steel 
036 72 RC |asa counter. 096 09 9 (This section 156 53 INT | for purposes of 
037 01 aft a97 05 5 |interpolates 157 77 GE |calculating Y. ; 
038 S58 FIX 038 OO O |between 900° and] 158 50 IxI | Stainless steel is 
039 03 a3 099 32 NIT |950°R(Y=0.4and| 159 61 GTO | reduced by 150°F. 
040 69 OP 1ag 77 GE|Y=0.5). All i160 22 IN | Other ductile 
O41 06 O86 101 70 RAD |temperaturesare | 161 76 LBL | materials are mass 
Qs2 69 OP 102 75 -_ |normalized to 162 533 INT | reduced by 600°F. 
043 21 21 103 32 N{T |carbon steel. 16s Q1 1 
044 69 OP 104 Sd 93 164 05 5 
045 22 22 105 65 xX 165 O00 0 
046 22 INY 106 93. ié6 61 GTO 
047 & FIA i107 oo O ie? 57 ENG 
043 97 NSZ i028 oo oO 168 76 LBL 
049 00 OD 109 a2 2 169 50 IxI 
050 19 D* 110 85 + 17O 06 6 
051 92 _RTN ili 93 

6 Subroutine: 

053 #16 A'S Removes the mill 


054 29 CP tolerance 
ta depending on the This section 
056 O01 1 value of SMLS. interpolates 
G57 95 = Pipe fabricated between 950°F and 
058 67 EG | from plate has a 1000°F. 
059 24 CE tolerance = .01". 


Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
180 HT’ is calculated | 240 S¢ 9) if 79 
ii and stored in R17.} 241 65 65 
182 ; 24? ap 2 a3 
183 48 RCL 13 55 + we 
8 02 02 4 42 ROL 
85 42 $TD 49 10 10 . 
86 5a 59 & 85 = ic 
8F 43 RCL ? 4 RO Ttl 
iss OF U7 8 = 
189 16 A" 1Q) = Td 
190 75 - as 25 . 

, ~ piel = L4 is calculated 
132 03°08 uF an stored nF 
199 95 = -CL | D1 is calculated Tr is assured to be 

ae 42 $70 OS | and stored in R21. ae 
195 17 17 - 

36 43 REL |BT is calculated | 256 2 

197 08 O09 JandstoredinR1I8.| 257 65 % 

98 42 STO 258 43 RCL 

199 99 59 259 19 i8 

200 43 RCL 260 54 ? 

201 4 14 761 35 7 
202 6 At 43 RC 
203 75 - ig6 16 
204 43 RCL 36 
205 2 12z oo = 
206 95 = 42 sTO 
207 42 STO Zi. 21 
208 18 #18 35 D2 is calculated 
209 43 REL |The minimum wall] 769 G2 2 and stored in R22. 
210 06 O06 |thickness forthe | 270 95 + D2 must be less 
211 me iB headeriscalculated| 271 43 RCL | than the header 
212 65 * according to a72 27 dl? | OD. 
213 43 RCL | equation 3A of 273 85 + - 
214 03 O03 | ANSI B31.3, 1980. |-274 ROL AB is calculated 
215 85 + |H3Aisstoredin | 375 18 and stored in Ri. 
Z16 43 ROL |RI9. 276 = 
217 04 04 2°? AIT 
218 54 ») 275 RC 

219 65 x 2 
220 02 2 G 
221 35 =< o 
22Z 43 RCL y 
223 03 03 3 

35 2e4 

225 42 RCL 385 S 
226 01 G1 PAG Te 
227 95 = 357 is 
228 35 17K 28g = 
229 42 $10 2H 3 
228 19 is] 290 a 
23\ 42 RCL |The minimum wall] 294 i AH is calculated, 
232 13 12 {thickness of the | 292 and stored in RB 
eee Le Be branch is calculated} 29% 

234 65 according lo 294 

235 42 ROL | equation 3A of 295 2 

226 10 10 | ANSI B31.3, 1980. 296 Area required e 

257 85 + BBA is stored in | 357 (AR) is calculated | 32 

235 42 RCL |R20, 292 and stored in R23. | 525 

249 |] nd 399 


920 


Loc Code Key Comments Loc Comments Loc Code Key Comments 
330 53 ¢ 420 Pad width is stored 
1 3 REL 421 in R29, 
362 17 17 422 
33 75 - 423 
Set 43 RCL 424 
$65 19 19 425 
266 «95 = 426 
367 «42 «STO 427 
ee aS $25 
go AA is calculated 429 
43 RCL | and stored in R27. | 420 All calculated data 
Zh 26 431 except pad 
ee 432 dimensions is 
42 370 433 printed. 
Zt _ Bie 434 
’3 29 CP TAR-AAis stored in| 425 
376 7? GE | R59. If AA is 436 
2(( 23 LHS | negative, it is 43 
72 oc pr . 
vie ¢3 CLR | ignored. 43% 
37g ; 4 
380 2: : 
331 
38 
If no pad is 
required, go to 
TAN. If not, pad 
dimensions are 
printed. 
Basic pad 
thickness (4”) is 
stored in R28. 
2 D2 is stored in 
test register. 
This section prints 
the message “NO 
= | PAD.” 
Pad width is i 
calculated. If the FP 
pad is larger than a3 
the allowed x 
reinforcement 2 
area, /16" isadded to a 
the thickness and a 
the program tries 3 
again. 2 
i 
i 
3 é 
“12 9 ae 
13 i oP 
tay 3 os 
"1S 3 oF 
a oo 
“8 RS 
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Program HP-41CV-10: Pressure Reintorcing Pad Sizing 


Introduction: 


HP-41CV-10 performs calculations set out in ASME/ 
ANSI B31.3, 1980, to determine the need for and the 
dimensions of the reinforcing pad needed to contain 
internal pressure at a stub-in connection. The program 
prints out all the relevant data, such as reinforcing 
zone dimensions and required area to be replaced and 
the thickness and width of the required pad, or the 
message “NO PAD REQD” if there is sufficient area 
in the header and branch for pressure containment. 


Nomenclature: 


Fourteen pieces of data are needed to execute the pro- 
gram. The user must also answer a question regard- 
ing the method of manufacture for the header and the 
branch. The data are: 


HOD: Header outside diameter (in) 
HT: Header nominal or purchased wall 
thickness (in) 
HPSI: Header design pressure (psig) 
HSMAX: Header allowable stress (psi) 
HCOR: Header corrosion allowance (in) 
HTEMP: Header design temperature (°F) 
BOD: Branch outside diameter (in) 
BT: Branch nominal or purchased wall 
thickness (in) 
BPSI: Branch design pressure (psig) 
BSMAX: Branch allowable stress (psi) 
BCOR: Branch corrosion allowance (in) 
BTEMP: Branch design temperature (°F) 
MATL: Material code for the connection 
1 = Ferritic steel 
2 = Austenitic steel 
3 = Other ductile materials 
4 = Cast iron 
ANGLE: Angle of intersection of the branch and 


the header (Deg) 


After prompting for the design temperature for both the 
header and the branch, the program displays the ques- 
tion “SEAMLESS?” If the header (or the branch) is 
fabricated as seamless pipe, the user must enter a Y. If 
the pipe is fabricated from plate, the user must enter an 
N. The program has already set the calculator in the 
alpha mode, so the user does not need to do Y is located 
at the “times” (x) key. N is located at the ENTER key. 


The program calculates the following data: 


HT’: Nominal wall thickness of the headet less 
mill tolerance and corrosion allowance 
(in) 
BT’: Same as above for the branch (in) 
HTmin: Minimum wall thickness of the header 
according to Equation 3A of ANSI B31.3, 
Section 304.1.2. (in) 
BTmin: Minimum wall thickness for the branch 


(in) 
dl: Effective length removed from pipe at 
branch (in) 
“Half-width” of the reinforcement zone 
(in) 
L4: Height of reinforcement zone outside of 
run pipe (in) 


Ar: (A1) Reinforcement area required (in*) 
Ah: (A2) Excess area in the header wall (in’) 
Ab: (A3) Excess area in the branch wall (in’) 
Aa: Area available for reinforcement 
(Ah + Ab) (in?) 
Method: 


HP-41CV-10 performs the calculations set forthin ASME 
ANSI B31.3, 1980, Section 304.3.3. First, the corrosion 
allowance and the mill tolerance is removed from the 
input values of nominal header thickness and branch 
thickness. Mill tolerance for seamless pipe is 12’ per- 
cent. For pipe fabricated from plate, the mill toleranceis 
0.01 in. The value to be used is decided by the user 
during input. Then the program calculates the mini- 
mum wall thickness needed to contain internal pres- 
sure, using Equation 3A in Section 304.1.2 of ANSI 
B31.3, 1980, for both the header and the branch. The 
value of Y used in the equation is determined by 
the program, using the input values of HTEMP and 
BTEMP. When necessary, Y is interpolated between the 
two values found in Section 304.1.2. Using these values 
and the other input data, the program determines the 
area needed for pressure containment, the area avail- 
able in the branch and header walls, and the dimen- 
sions of the reinforcement zone. If the area available 
is greater than the area required, the program prints 
the message “NO PAD REQD.” If the area available 
is insufficient, the program starts with a pad thickness 
of .125 in. and computes the pad width. If the width 
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is within the reinforcement zone width, the program | jmitations: 
pmnts the reinforcing pad dimensions. If not, the pad 
uuckness is Increased by .0625 in and the process starts [p-41CV-10 performs one branch connection at a time. 


suum. No data are carried over from one execution to another. 

There are two points the user should understand The program is self-initializing. After the first run, the 

about the assumptions made by the program. program initializes itself. The equations used are not 

applicable for pipes under external pressure. There is 

1, The program assumes no excess weld credit. no check of the limits of the thickness the pad may be. 

2. The program assumes that Tr is always zero, There is also no way to calculate a branch connection 
when calculating the value of LA. made up of different materials. 
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Keyboara Gar meson 


WMH YD ee 


= = \ 


=) =)= i= 155 
Be8884 
=== T=) 
—_==F=" 
Bea e& 
Bo oe 
Beau eg 


TL NEWLRETYT:PACK AAD 41C 
SYSTEM 
CONFIGURATION 


KEYBOARD 


User Instructions 


Program Number HP-41CV-10__ Title Pressure Reinforcing Pad Sizing 


step Instructions Input Keystroke Display 
1 Read in magnetic car ; 
2 ~~ ‘Snitialize icant aiid E H OD= 
1 Input header outside diameter. HOD R/S HT= 
4 Input hender thickness, HT RIS HPSI= 
$ Input header design pressure. HPSI R/S HSMAX-= 
6 ‘Input header allowable stress. HSMAX R/S HCOR= 
7 Input header corrosion allowance. HCOR RIS HTEMP- 
§ Input header design temperature. HTEMP R/S SEAMLESS? 
9 Answer seamless prompt. Yor N R/S BOD-= 
{0 Input branch outside diameter, BOD R/S BT= 
11 Input branch thickness. BT R/S BPSI= 
12 Input branch design pressure, BPSI R/S BSMAX= 
13 Input branch allowable stress. BSMAX R/S BCOR= 
14 Input branch corrosion allowance. BCOR R/S BTEMP- 
15 Input branch design temperature. oe y : par 
or = 
16 Answer seamless prompt. Snranes 
3=0.DUCTILE 
4=CAST IRON 
. TL= 
11 Input material code. 1, 2, 3, or 4 R/S ANGLE= 
18 Input header/branch intersection angle. ANGLE R/S si 
BT" 
HTmin 
BTmin 
dl 
d2 
L4 
Ar 
Ah 
Ab 
Aa 
Thick 
Wide 
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Registers, Flags, ASSIB Terns 


Program Number HP-4ICV-10  -Fitje __ Pressure Reinforcing Pads 


DATA REGISTERS DATA REGISTERS 
00 Pointer 
01 HOD 
02 HT 
03 HPSI 
04 HSMAX 
05 HCOR 
06 HTEMP 
07 BOD 
0s BT 
09 BPS] 
10 BSMAX 
11 BCOR 
12 BTEMP 
13. MATL 
14 ANGLE 
i EF FLAGS 
16 BT 
17 HTmin 
Bae 1 c Header is plate Header is 
fabricated. Seamless 
2 C Branch is plate Branch is 
fabricated Seamless 


SESEGESRBESS 


# s/C Set Indicates Clear Indicates 


8 
SHEE RR EGE 
mR 


a ASSIGNMENTS 
30 Label Key Function Key 


32 PAD 15() 
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(s) 


Saal I 


Wilh Z (44 
SELELELEEDETILTESDERDEIO TEES 


a: 
'SEMEED 4s 
Sew A pay 


1t¢ 


MULTIPLY THIS AREA 
BY (2-SIN A) TO GET 
REQUIRED AREA 


Zim 
TULL L 4 


= 
Wl 


ogee. 


‘ 


PACOSOALOLL ITIL CPLIO LEE: eee 


-€ PIPE - - 


NOTE: THIS FIGURE ILLUSTRATES THE NOMENCLATURE OF 304.).). IT DOES NOT 
INDICATE COMPLETE WELDING DETAILS OR A PREFERRED METHOD OF 
CONSTRUCTION. FOR TYPICAL WELD DETAILS, SEE FIGURE 3274 4D. 


FIG, 304.3.3 BRANCH CONNECTION NOMENCLATURE 


| REINFORCEMENT 
ZONE 


r?) 
gns¥ 


NY Inv1d VOI 


Sdud ¥od 502 


ONIdid Jungs 


ONIdId AMANISIY WNATOULIAd q 


NOLLIGA 0861-£°1€8 AWSV/ISNY 


€£ vol Old 


UONPJUIWNION arinac 


AN AMERICAN NATIONAL STANDARD 


CHEMICAL PLANT AND PETROLEUM REFINERY PIPING 


304.3.3 Reinforcement of Welded Branch Con- 
nection, Added reinforcement is required to meet 
the criteria in 304.3.3(b) and (c) when it is not pro- 
Vided inherently in the components of the branch 
connection. Sample problems illustrating the calcula- 
tions for branch reinforcement are shown in Appen- 
dix H. 


(a) Nomenclature. The nomenclature below is 
used in the pressure design of branch connections, It 
is Qlustrated in Fig. 3043.3, which does not indi- 
cate details for construction or welding. Some of the 
terms defined in Appendix J are subject to further 
definitions or variations, as follows: 


b 
dy 
a, 


subscript referring to branch 


effective length removed from pire at branch 


“half width” of reinforcement zone 


d, or (T, -c) + (Ty, -¢) +d, /2, whichever 
is greater, but in any case not more than Dy, 


subscript referring to run or header 


height of reinforcement zone outside of run 
pipe 

2.5(Th - c) or 2.5(Tp - c) + Ty, whichever is 
less 


Ty minimum thickness of reinforcing ring or 
saddle made from pipe (Use nominal thick- 


ness if made from plate.) 
O, if there is no reinforcement pad or saddle 


pressure design thickness of pipe, according 
to the appropriate wall thickness equation or 
procedure in 304.1. For welded pipe, when 
the branch does not intersect the longitudi- 
nal weld of the run, the basic allowable 
stress, S, for the pipe (see Appendix A, Note 
16) may be used in determining fp, for the 
purpose of reinforcement calculation only. 
When the branch does intersect the longi- 
tudina] weld of the mun, the allowable stress 
(SE) of the run pipe shall ‘be used in the cal- 
culation. The allowable stress (SE) of the 
branch shall be used in calculating rp. 


smaller angle between axes of branch and 
mun 

(b) Required Reinforcement Area. The reinforce- 
ment area Ay required for branch connections under 
internal pressure shall be: 
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ANSI/ASME B31.3-1980 EDITION 


304,3.3 
A\ = (th dy) (2 = sinf) (61) 

and under external pressure shall be: 
Ay = (ty dy) (2 - sing)/2 (6b) 


(c) Reinforcement Area: The reinforcement area 
is the sum of Areas Ay +A3 + Ax defined below, and 
shall equal or exceed the required reinforcement area, 
Ay, in 304.3.3(b). 


(1) Area Az. The area lying within the rein. 
forcement zone resulting from any excess thickness 
available in the run wall: 


Az = (2d, -dy) (Th - th -¢) (7) 

(2) Area A3. The area lying within the re- 

inforcement zone resulting from any excess thickness 
available in the branch pipe wall: 


Ay = Wa (Tp - ty - €)/sinB (8) 


(3) Area Ag, The area of all other metal with- 
in the reinforcement zone defined in 304.3.3(d) 
provided by weld metal and other reinforcement 
metal properly attached to the run or branch. Incom- 
puting areas of weld metal deposits, the minimum 
dimensions required in 327.4.4 shall be used unless 
the welder is clearly instructed to provide specific 
larger dimensions, in which case the latter dimensions 
may be used in calculations. 


Materials used for reinforcement may differ from 
those of the run pipe, provided they are compatible 
with the run and branch pipes with respect to weld- 
ability, heat treating requirements, galvanic corro- 
sion, thermal expansion, etc. If the allowable stress 
for such materials is less than that for the run pipe, 
the corresponding calculated area must be reduced 
in the ratio of the allowable stress values before being 
counted toward the reinforcement area. No addition- 
al credit shall be taken for materials having higher 
allowable stress values than the run pipe. 


(d) Reinforcement Zone. The reinforcement zone 
is a parallelogram whose length extends a distance of 
da, on each site of the centerline of the branch pipe 
and whose width starts at the inside surface of the 
run pipe (in its corroded condition) and extends toa 
distance L, from the outside surface of the run pipe 
measured perpendicular to this outside surface. 


(e) Reinforcement of Multiple Openings. When 
any two or more adjacent openings are so closely 
Spaced that their reinforcement zones overlap 


Example 1 


Header size is 12” std. wt. 
Branch size is 8” sch 40. 


H OD= 12,756 Design pressure for both lines is 500 psig. 


HT= 6.375 Maximum stress for both lines is 20,000 psi. 
HPSTI= See. ee6 Corrosion allowance for both lines is 0.063”. 

Design temperature for both lines is 750°F. 
HCOP= 6.962 Both lines are seamless pipe. 


The material is #1 (ferritic steel). 


HTEMP = 756, 686 The branch intersection angle is 90°. 


SEAMLESS? Y 


B OD= 8,625 
BT= €.222 
BPSI= cee. age 
BSMAX= 26,880, bH6 
BCOR= 4@.hé3 
BTEMP= 750,988 
SEAMLESS? ¥Y 


MATL= 1. 
ANGLE= %. 


HT*=8.265 
BT'=8.219 
HTain=6. 158 
BTain=6. 167 


PRS 


Hom mm mt tt 


= 
oD OD +s ow oO OO 


moot 


PAD 
DIMENSIONS 


6.125 in THICY 
1,163 in WIDE 
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Pressure Pad Thickness 


(Solution for Example 1) 


H OD = 12.75" 
HT = 0.375" 
HT’ = (0.375)(7)/(8) — .063 = 0.2651" 
B OD = 8.625" 
BT = 0.322" 
BT’ = (0.322)(7)(8) — .063 = 0.2188” 
ee 500)(12.75 
HTmin = 3A Minimum required wall for header span) 22) 0.1578" 
2(20000 + (500)(0.4)) 
'500)(8.625 
BTmin = 3A Minimum required wall for branch a ) 0.1067” 


2(20000 + (500)(0.4)) 


_ 8.625 — 2(0.2188) 


= 8.1874” 
SIN (90) 


a 


74. 
= 4.5776" 


D2 = greater of 8.1874 and (0.2651) + (0.2188) + 


L4 = lesser of 2.5(0.2651) = 0.6628" and 2.5(0.2188) + 0 = 0.5740" 
Ar = (0.1578)(8.1874)(2 — SIN(90)) = 1.2920 


Ah = (2(8.1874) — (8.1874))(0.2651 — 0.1578) = 0.8785 
Ab = 2(0.5470)(0.2188 — 0.1067)/SIN(90) = 0.1226 

Aa = 0.8785 + 0.1226 = 1.0011 

AR’ = 1.2920 — 1.0011 = 0.2909 

Assume pad thickness = 0.125” 

Pad width = 0.2909/(2)/(0.125) = 1.1635” ... less than D1 
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Example 2 


The header size is 12" std. wt. 

H_ OD= 12,756 The branch size is 8” sch 40. 

HT= 4,375 The design pressure for both lines is 500 psig. 

HPSI= 500.990 The allowable stress for both lines is 20,000 psi. 
es The corrosion allowance for both lines is 0.063". 

penee — Design temperature for the header is 950°. 


Design temperature for the branch is 925°F. 
HTEMP= 956. 606 Both lines are fabricated from plate. 


SEAMLESS? 4 The material is #1 (ferritic steel). 


The branch intersection angle is 45°. 


B OD= 8.625 
BT= 6.322 
BPSI= 504.000 
BSMAX= 26,688. 468 
BCOR= 6.063 
BTEMP= 925, 606 
SEAMLESS? 4 


MATL= 1. 
ANGLE= 45, 


HT'=8.382 
BT‘'=8.249 
HTain=€. 157 
BTain=8. 187 


d1=11.493 
d2=11.493 
L4=8.623 
Ar=2.329 
Ah=1.662 
Ab=6. 251 
Aa=1.913 


PAD 
DIMENSIONS 


6.125 in THICK 
1.706 in RIDE 
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Example 3 


H OD= 12.758 
HT= 6.688 

HPSI= 16.688 
HSMAX= 26,666. 006 
HCOR= 6.686 
HTEMP= 126.606 
SEAMLESS? 4H 


B OD= 8.625 
BT= 86.718 

BPSI= 10.606 
BSMAX= 26,866,686 
BCOR= 86.068 
BTEMP= 126.068 
SEAMLESS? y 


MATL= 1. 
ANGLE= 9. 


HT‘=6.678 
BT'=6.628 
HTnin=8. 803 
BTnin=@. 862 


d1=7,369 
d2=7.369 
L4=1,571 
Ar=6. 823 
Ah=4,972 
Ab=1.967 
Aa=6.939 


NO PAD REOD 


The header size is 12” sch 80. 

The header design pressure is 10 psig. 

The header allowable stress is 20,000 psi. 
The header corrosion allowance is 0”, 
Design temperature for the header is 120°F, 
The header is fabricated from plate. 


The branch size is 8” sch 120. 

The branch design pressure is 10 psig. 

The branch allowable stress is 20,000 psi. 
The branch corrosion allowance is 0”. 
Design temperature for the branch is 120°F, 
The branch is seamless pipe. 


The material is #1 (ferritic steel). 
The branch intersection angle is 90°. 
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Sample Problem 


Program: 


-_ -, 
Sample Problem (Sketch if Desired) 


Header size is 12" std. wt. 

Branch size is 8" sch 40, 

Design pressure for both lines is 500 psig. 
Maximum stress for both lines is 20,000 psi, 
Corrosion allowance for both lines is 0.063". 
Design temperature for both lines is 750° F, 
Both lines are seamless pipe. 

The material is ferritic steel. 

The branch intersection angle is 90° F, 


Input Function Display 
E HOD= 
12.75 R/S HT= 
315 R/S HPSI= 
500 R/S HSMAX= 
20000 R/S HCOR= 
063 R/S HTEMP= 
750 R/S SEAMLESS? 
Y R/S BOD= 
8,625 R/S BT= 
om R/S BPSI= 
pd R/S BSMAX= 
a R/S BCOR= 
i R/S BTEMP= 
Y R/S SEAMLESS? 
R/S 1=FERRETIC 
2=STAINLESS 
3=0.DUCTILE 
4=CAST IRON 
MATL= 
1 
R/S ANGLE= 
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HP-41CV-10 Title Pressure Reinforcing Pads 


Comments 


Initialize program. 

Store H OD, prompt for HT. 

Store HT, prompt for HPSI. 

Store HPSI, prompt for HSMAX. 

Store HSMAX, prompt for HCOR. 

Store HCOR, prompt for HTEMP. 

Store HTEMP, ask if header is seamless pipe. 
Program does not set Flag 1 because header is seamless. 
Prompt for B OD, 

Store B OD, prompt for BT. 

Store BT, prompt for BPSI. 

Store BPSI, prompt for BSMAX. 

Store BSMAX, prompt for BCOR. 

Store BCOR, prompt for BTEMP. 

Store BTEMP, ask if branch is seamless pipe. 


Program does not set Flag 2 because branch is seamless. 
Display material codes and prompt MATL. 
Store MATL, prompt for ANGLE, 


Input 


% 


Runction 


R/S 


Display 


HT'=0.265 
BT'=0,219 
HTmin=0,158 
BTmin=0,107 
d1=8,188 
d2=8,188 
LA=0,547 
Are 1,292 
Ahe=0,879 
Ab-=0,123 
Aas=1,001 


PAD 
DIMENSIONS 


0,125 in THICK 
1,163 in WIDE 


Comments 


Program calculates and prints corroded and milled wall 
thickness for header and branch, and minium wall thick. 
ness based on internal pressure for branch and header, 


The program then calculates and prints the data to 
determine the amount of reinforcing needed: reinforce. 
ment zone dimensions, area needed for reinforcement, 
excess area in the header and branch, and area available 
(Ah + Ab). If Aa is grater than Ar, the program prints 
the message “NO PAD REQD.” If, as in this case, addi- 
tional reinforcement is needed, the program assumes a 
pad thickness and calculates a pad width. If the pad 
dimensions fall within the reinforcement zone, the pad 
thickness and width are printed. 
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Coaing Form 


Program Number _HP-41CV-10_ Title Pressure Reinforcing Pads 
Step) Key Key Comments es 
(ine Esitry’ ‘Cole id med it Comments |Step/ Key Key) — Comments 
GILBL *PAD* =| Initialize program. | 58 Al oe 
62 CLRG Clears all gram, . OH preeeant sets $8 PSE 
63 CF Of make || ee mg 99 “3-0, DUC 
64 CF 62 Flags 1 and 2, 32 CF 12 TILE" 
85 “HOD stor all alpha 53 ACA 146 PSE 
96 ASTO BI nite for input 54 ASTO % {a1 “42CAST 
67 “HT es 55 AOFF TROK" 
68 ASTO a2 56 PREUF 162 PSE 
89 “HPSI* S7 427? 193 AOFF 
16 ASTO 63 52 GTO 16 194 SF 12 | Prompts for. 
{1 *HSMAK* | 99 SF 61 185 *HATL=* prints, and stores 
12 ASTO 04 660LBL 18 Input routine. Uses 196 PROMPT | MATL in R13. 
13 *HCOR® 6L 7.612 R00 “ = and| 17 ACA bat 
14 ASTO 65 62 $10 g@ [counter Prompts | 1#2 S10 13 | ANGLE inR 
15 “HTEHP* 63 AD forauetatorese | fad OF ie a 
16 ASTO 66 aa B , 110 FIX @ 
17 “B OD: LL ACK 
18 ASTO 67 66 SF 12 112 PREUF 
19 “BT | ARCL IND 48 113 “ANGLES? 
28 ASTO 88 “ye M4 SF 120 | 
21 “BPSI* 69 PROKPT 115 PROMPT 
22 ASTO 69 76 ACA 116 ACA 
23 “BSMAX“ 71 CF 12 117 STO 14 
24 ASTO 16 7 ACK 118 CF 12 
25 “BCOR™ 73 PREUF 119 ACK 
26 ASTO 11 74 STO IND 68 126 PRBUF 
27 *BIEKP" 75 ISG 88 121 ADY This section 
28 ASTO 12 76 GTO B 122 RCL 62 removes the mill 
29 FIRS mt [eames | tao) | aon 
36 1,606 - LESS?” or 4 allowance fr 
“ «| not. If branch i om 
a I 8 OE | made from a | ee HT toga Th 
2eLBL A Inputroutine. Uses| 81 ACA (user input = N) | 497 ve tis stored in 
33 CLA ROO as pointer and program sets : > 
34 SF 12 counter. Prompts 82 ACH Flag 2. 128 / 
35 ARCL IND @6 for and stores all 83 PROMPT 129 GTO 21 
% «be header data. 84 CF 12 136¢LBL 26 
37 PROMPT 85 ACA 131 8 
36 ACA 86 ASTO X 132 - 
39 CF 12 $7 AOFF 133LBL 21 
48 ACK 88. PREUF 134 RCL @5 
41 PRBUF 89 X21? 135 - 
42 STO IND @@ 98 GTO 15 136 $T0_15 
43 186 68 91 SF 02 = i : This section 
44 GTO A 92¢LBL 15 ; 4 removes the mill 
6 y" ais 93 AY eee | aaa | Mean 
46 ASTO Y “SEAMLESS?” or | 24 AOK four different Ma? ‘iba from 
47 “SEAMLESS? * | Not. If header is | 99 “L=FERRETIC material classes, | {I 3 BT to get BT’. The 
48 SF 12 made from plate | 96 PSE 142 8 result is stored in 
49 ACA (user input = N), | 97 “2=STAIH a / R16. 
LES¢* 144 TO 26 
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Step/ Key Key Comments Step} Key Key Comments Step! Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 

145¢LBL 25 194 RCL 89 243 RCL 15. must be less than 
146 81 195 # 244 RCL 16 tnt heater OD 
14 - 196 STO 18 245 + 

1484LBL 26 197 ADY HT’, BT’, HTmin, | 246 + 

149 RCL tf 198 FIX 3 and BTmin are 247 RCL 19 

150 - 199 “HT" printed. 248 YYY? 

151 $10 16 266 ACA 249 GTO 17 

182 2 The temperature of| 281 39 258 KO>Y 

153 RCL 13 all materials is 262 ACCHR 251¢LBL 17 

154 X¢Y? normalized to 203 °=* 252 RCL @1 

155 GTO ¢ Curposcsot | 204 ARCL 15 253 X¢=Y? 

156 X=¥? calculating the 285 ACA 254 GTO 18 

157 GTO D Y factor. Stainless | 206 PRBUF 255 XOY 

158 4 paces by 267 BT" 256¢LBL 18 

=? Hr OIE: 268 ACA 257 STO 28 

A ba ¢ pa materialsby) 999 39 258 RCL 15 LA is calculated and 
161 660 218 ACCHR 259 2.5 stored in R21. Tris 
162 GTO 38 ai “= 268 * assumed to be 
1630LBL D 212 ARCL 16 261 RCL 16 ate 

164 156 213 ACA 262 2.5 

165¢LBL 36 214 PRBUF 263 + 

166 ST- 96 215 “HT 264 XK=¥? 

167 ST- 12 216 ACA 265 GTO 31 

168¢LBL C HTminiscalculated 21? SF 13. 266 ROY 

169 RCL 66 according to 218 “HIN= 2674LBL 31 

178 XEQ °Y* equation 3A of 219 ARCL 17 268 STO 21 

171 RCL 83 ANSI B31.3 1980. | 226 ACA 269 RCL 17 Aris calculated and 
172 4 221 PREUF 278 RCL 19 stored in R22. 
173 RCL 04 ranges 271 + 

174 + 223 “BT 272 2 

175 2 a 273 RCL 14 

176 ae 274 SIN 

177 1% HTmin is stored = a 275 - 

173 RCL 6! in R17. pa 276 + 

179 + i 277 ST0 22 

180 RCL 83 oe OF 1 a 278 RCL 28 Ah is calculated 
181 + is calculated and 279 2 and stored in R23, 
182 $10 17 ea ie tle 280 + 

183 RCL 12 rar - a ti 281 RCL 19 

184 XEQ “Y" calculated 734 2 282 - 

125 RCL 89 spel - 235 4 283 RCL 15 

186 + ANSI B31.3, 1980. 236 - 284 RCL 17 

187 RCL 16 BT min is stored in] 237 RCL 14 285 - 

188 + R18. 238 SIN 286 * 

189 2 339 / 287 $10 23 

198 4 248 STO 19 288 2 Ab is calculated 
191 17% mat 2 discal 289 RCL 21 and stored in R24. 
192 RL 7 Pease oy 2 

ns acca 291 RCL 16 
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Step! Key Key Comments Step! Key Key Comments Step! Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code} 
292 RCL 18 341 ACA 396 AGA jand the program 
293 - 342 ALY 391 PRUF rae. 
2s 343 ADY {fAaisgreaterthan| 392 FHT 
295 RCL 14 344 ROL 25 Ar, no pad is 393 “DIMENSIONS” 
296 SIN 345 RCL 22 required. br 394. ACA 
on / 346 XY? program prints | 395 PReUF 
299 $10 24 747 10 58 | NP PAD REQ" 356 aly 
299 RCL 23 Aa is calculated 348 SF 12 397 CF 12 
306 + and stored in R25.| 349 “HO PAD 398 CLA 
31 S10 25 REQD" 399 ARCL 26 
Th2 RCL 22 Ar-Aa is stored in | 356 PRA 499 ACA 
383 KOY R26. 351 AMY 461 SF 12 
384 - 352 AMY | 492° IN © 
305 STO 26 353 CF 12 493 ACA 
306 FIX 3 d1, d2, LA, Ar, Ah, |_354 GTO "PAD" 484 CF 13 
367 “dl=" Ab, and Aa are 355LBL 58 Ifa pad is required,| 45 "THICK* | 
383 ARCL 19 printed. 356 «125 Ys" is stored in R26) 4g¢ peg 
389 ACA as the smallest pad ; 
310 ADY cbs : thickness. If Aa is “ Pes 
BL “a2=" 359 RCL 22 |ticipaored’end Ar| 469 OROL 27 
it is ignored and Ar RL 
312 ARCL 20 366 RCL 25 fo ihe basis ofthe | Wis-AEN 
. ACA 361 X)8? pad size. 4lt SF 13 
314 ADY ee 
Ui 362 GTO F 412° TH 
315 “L4= 363 CLY 413 ACA 
316 ARCL 21 36449LBL F 414°CF {3 
317 ACA 365 - 415 “RIDE 
318 ADY 366 RCL 26 446 ACA 
319 “Ar 67 7 417 ADY 
- bn 368 RCL 97 413 ADY 
“ = 369 + If the pad size is 419 ADY 
322 “Re 378 RCL 28 larger than the |_420 GTO “PAD 
Sy a 22 3712 reinforcing zone, | 42{#LBL ‘Y* Subroutine: 
372 * then ‘s" isadded to 422 RCL 13 Determines the 
325 ADY 373 YY? the pad thickness 423 4 value of Y for the 
306 CF 13 374 G70 SL [eee | 424 Het minimum pipe wall 
307 “Ar 375.9625 ils 425 cro ay =| ckness 
328 ACA 326 ST 26 426 ROW if ae 
329 SF 13 3?7 GTO E 42? ROH Y= 0.4 
338 "HE" 3784LBL 51 Pad width is stored} 428 899 - res pee 
331 ARCL 23 379 XY in R27. 429 X99 natectar os 
- it - 2 436 GTO 84 950. 
/ 431 RIN 
334 CF 13 382 RCL 97 432 958 
35 “Ab=* 383 2 433 XCY? 
336 ARCL 24 384 / 434 GTO 85 
337 ACA 385 - 435 XCY 
338 ADY 326 $10 27 _| 436 - 
339 “fas" r 387 SF 12 Pad thickness and | 437 , 482 
348 ARCL 25 388 FAT width are printed | 475 cys 
389 “PADS 
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Step! Key Key 
Line Entry Code 


Comments 


Step! Key Key 
-Line Entry Code 


Comments 


Step}! Key Key 
Line Entry Code 


Comments 


439 * 
448.5 
$f + 
442 RIN 


443¢LBL 85 
444 RIN 
445 1608 
445 XC? 
44? GTO 87 
448 XOY 
449 - 

438 -. B84 
451 

452 .7 
453 + 

454 RTH 
4S5eLBL 81 
456 8 

457 RIN 
458eLBL O64 
459 24 

466 RIN 
461¢LBL 67 
462 .7 
463 RTH 
464 J EHD. 


Y is interpolated 
between 0.5 and 
0.7 for 950 < T= 
1000. All 
temperatures are 
normalized to 
carbon steel. For 
T <900°F Y = 0.4 
For cast iron, 

Y = 0.0. 
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Chapter 1 1 


Maximum Allowable Working 
Pressure 


Program TI-59-11.1 


Introduction: User keys are: 


A: Input data 

B: Execute for seamless pipe 

C: Execute for plate-fabricated pipe 
E: Initialize program 


Given a pipe outside diameter, nominal wall thickness, 
allowable stress and corrosion allowance, TI-59-11.1 
will return a maximum pressure that can be sustained 
by the pipe, according to ASME/ANSI B31.3, 1980. 


Method: 
Nomenclature: The equation used is based on Equation 3a of ASME/ 
ANSI B31.3, 1980, Section 304.1.2. 
Six pieces of data are input: = SMAX(2T’) i 
OD: Pipe outside diameter (in) PN OD i 1 - (2YT'/OD) 
THCK: Pipe wall thickness (nominal) (in) 
SMAX: Hot stress allowable (psi) where 
TEMP: Design temperature (°F) T’ = 7/8(THCK) — CORR for seamless pipe 
CORR: Corrosion allowance plus thread T’ = THCK — CORR — 0.01 for plate-fabricated pipe 
allowance, if any (in) Y = temperature factor (from Table 304.1.1, ASME/ 
MATL: Material code ANSI B31.3, 1980) 
The material codes are: 
1 = Fentitic steal Limitations: 
2 = Austenitic steel TI-59-11.1 operates on one OD at a time. It does not 
3 = Other ductile materials check against the use of cast iron above 900°F. Only 
4 = Cast iron English units may be used. 
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User Instructions 


Program Number _T!-59-J1.)__ Title Maximum Allowances Working Pressure ' — 
Step Instructions Input Keystroke Display 
J Initialize, E a ‘5 
2 Input OD (in), OD A 
4 Input THCK (in), THCK A a 
4 Input SMAX (psi). SMAX A a 
$ Input TEMP ("F), TEMP A a 
6 Input CORR (in). CORR A cose 
7 Input MATL (1, 2, 3, or 4). MATL A MATL 
8 Select analysis. 
SEAMLESS B Layee 
PLATE c EMAAR 


TJ-59-11,1 initializes itself after every run. 


300 


Vata Kegister Contents 


REGI- REGI- 
STER DATA ‘STER DATA 
00 | DSZ 30 
(1 |} OD 31 
(2. | THCK 32 
03. | SMAX a3. 
04 | TEMP 34 
05 | CORR 95 
06 |MATL 36 
[7 | Y factor 37 
08 | Corroded and milled thickness (t) 38 
09 | Normalized temperature 39 
10 |PMAX 40 
ll 4] 
12 42 
13 43 
14 44 
15 45 
16 46 
7 | 47 
18 48 
|» | 49 
20 50 
2l 51 
%3 53 
24 54 
6 55 
%6 56 
27 a7 
28 58 
29 59 


301 


Examples of TIl-59-11.1 


&, 625 on 
t. 1813 THOR 
eo0dd, SMAN 

Bod, TENP 

O. Q&S CORR 

1. MATL 


SEANLESS 


450, PNAS 


8. 625 on 

Q. 189 THOR 

eo00d, SMAN 

Lia, TEMP 

QO, 8s CORR 
a 


Ss NATL 


on 

THK 

Soda, SNAN 
1158, TENP 

Q. Q&S CORR 

Be MATL 


SEANLE 
450, PHAN 


B. 885 Ou 
QF THOK 
Sagan, SNAN 
gaa. TENF 
Q. QSs CORR 
4 NATL 


PLATE 


PNAS 


Program: 


TI-59-11.1 


Sample Problem 


OD = 8.625" 


THCK = 0.1819" 
SMAX = 20,000 psi 


TEMP = 900°F 
CORR = 0.063" 


MATL = Ferritic steel (Code = 1) 


= 
Step Input 

1 
2 8.625 
3 .1819 
4 20000 
5 900 
6 063 
1 1 
8 


Key 
Stroke 


Dr>rrrr >t 


Display 


0. 
8.625 
0.1819 
20000. 
900. 
0.063 
1. 


Printer 
8.625 OD 
0.1819  THCK 
20000. SMAX 
900. TEMP 
0.063 CORR 
i, MATL 
SEAMLESS 

450. PMAX 
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Comments 


Initialize program. 
Stores OD in ROL. 
Stores THCK in R02. 
Stores SMAX in R03. 
Stores TEMP in R04, 
Stores CORR in ROS. 
Stores MATL in R06. 


The program executes the equations 
for seamless pipe. The value of 

Y is calculated and stored in RO7. 
The mill tolerance (12 1/2% for this 
case) is taken from the nominal 
thickness, THCK. The corrosion 
allowance is also taken off. The 
value of t' is stored in RO8. Using 
t', PMAX is calculated and stored in 
R10. The value is then printed. 


Coding Form 


Maximum Allowable Working Pressure 


Program N umber __ T5911 Title 
Loc Code Key Comments Loc Code Key Comments Loc Comments 
Input routine. QoQ 7é LBL | Prints alpha label. | 12 
Uses ROO as a O61 33 NE 1271 
pointer. 062 38 ADV Lae Interpolation 
O63 69 OP 123 routine between 
064 05 aS 12¢ 1050°F and 1100°F 
OsS o8 OP 125 (normalized) 
des au oa 126 interpolates Y 
Us? 38 ' 127 between 0.4 and 
058 Q3 3 |Test to see if 128 0.5, 
O62 material is #3 or 23 
ora #4, 130 
ari 131 


9 09 09 05 09 09 09 9 


COON Ob O19 
4 


dis $3 RS Set Flag 1 if 
O17 76 LBL | Main control for material is #1 or : 
dig 12 B  |seamless pipe. Flag 2 if material 3 
019 oS $$ Loads a is 2. Normalize = 
azq 06 6 registers wi temperature to Td 
gz} 0: 1. |“SEAMLESS?” ai: 01 sisitioes steel, if ar 
ro 2 necessary. GTO 
1 a SIH 
3 a LEL | Interpolation 
r Fal TAN |routine between 
02 3 ‘ 1 1100°F and 1150°F 
3 76 LBL 1 | (normalized) 
o C 5 |interpolates Y 
2 43 REL OQ | between 0.5 and 
e Od ad = 0.7. 
1 95 = REL 
ts 42 STO 3 
= og O09 
& O01 1 | First test to assign 
00 0 | value to Y. This 
O4 4  |section determines 
o9 9 Jif Y = 0.4 orif 
32 KIT |Y =0.7. 
43 RCL 
oo ag 
Main control for 22 INV If temperature 
042 plate-fabricated 2? GE > 1150°F 0.7 is 
043 pipe. Loads alpha 25 CLE the assigned value 
044 registers with a1 1 of Y. 
045 “PLATE.” oi 1 
O26 05 5 
047 a1 1 
048 32 IT 
049 42 RCL 
oso oa ag 170 If temperature 
o51 22 BE 171 < 1050°F 0.4 is the 
c 23 LNN 172 assigned value of 
G1 1 |Test to see if we Y. 
G1 1. |temperature is ike 
Sets PLATE flag. ao 60 i than 1100°F| 175 
oO 0 | (normalized). 176 
32 Ki Lie? 
43 RCL 178 Fe LBL |If MATL is cast 
ca a9 ifs £9 OF iron Y = 0.00. 


Z 
~~ 
Loc Code Key Comments Loc Code Key Comments Loc Code Key | Comments 
so. 00 0 | 240 55 + 200 Oi t 
2 $TO 241 43 ROL 201 0% 3 
o7 07 242 09 09 302 04 4 
76 LBL |Calculates out mill| 243 95 = 302 04 4 
35 SIN |tolerance. . 244° 35 17% 204 42 370 
27 FF 245 95 = 205 02 Of 
2 03 246 42 STO | Stores PMAX in 306 93 2 
34 7X 247-10 10 | R10. 307 07 7 
43 RCL 243 03 3 [Prints value of BOB OL i 
o2 a2 249 03 3 |PMAX, 209 07 7 
65 x 250 03 3 216 03 2 
M77 Z11 90 6 
192 55 + Ziz of 3 
193 of 38 a1Z 03 3 
194 95 = 214 42 270 
35 61 GTO 215 54 04 
196 35 17% 216 93 3 
37 76 LBL Wh“? 35 5 
198 34 FX ae ee @ 
99 43 RCL 319 OZ 2 
200 02 2 320 353 
201 75 - gel 05 5 
a2 a 322 03 4 
203 00 0 223 005 5 
204 a1 1 224 J 
205 95 = 325 05 05 
Ze 76 LEL | Calculates PMAX. 326 02 3 
207 35 1/% 327 00 9 
208 75 - a mo 
209° 43 RCL é 329 02 3 
ei0 EE Oe ; eace 4 a30 03 2 
ee ‘ Initializing routine. 39, 47 > 
212 42 STO 332 UZ 2 
213 08 OB = 07 c 
214 65% ae St 
215 oz 2 Reset flags. 335 06 06 
216 65 % 336 O01 1 
217 43 REL ister. | 222 .42 STO 
212 03 02 pe | cleat test register: | 338 “00 _00 |Set pointer for 
219 55 = 4 339 25 LR |input routine. 
220 43 REL g o35_21 ES 
421 1 Of Ze 4 2  |Clear memories. 
222-95 «= 282 1 
223 42 STO 283 6 
22409 09 224 STO 
225 a1 1 285 cli | Set alpha labels. 
22675 = «=| 286 3 
227-53 «=f 287 7 
228 43 ROL 2e8 2 
229 07 #07 289 % 
230 65 x 290 1 
231 92 2 251 5 
292 65 292 2 
233° 43 REL 293 6 
“34 gg 08 294 5T 
235 65k 295 oz 
236 43 RCL 296 a 
a7 OL 4 297 é 
Ci 54 4 298 4 
229 95 = 259 0 
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Program TI-59-11,.2: Minimum Pipe Wall Thickness Per 
Individual OD 


Introduction: 


T1-59-11.2 performs the opposite calculation of TI-59- 
11,1. It determines the mininum pipe wall thickness 
when given the internal pressure, allowable stress, cor 
rosion allowance, and type of material. The program 
differentiates between seamless pipe and pipe fabri- 
cated from plate. The equations used conform with 
ASME/ANSI B31.3, 1980. 


Nomenclature: 
Six pieces of data are input: 


OD: Pipe outside diameter (in) 
PRES: Internal pressure (psig) 
SMAX: Hot allowable stress (psi) 
TEMP: Design temperature (°F) 
CORR: Corrosion allowance plus thread 
allowance, if any (in) 
MATL: Material code 


The material codes are: 
1 = Ferritic steel 


2 = Austenitic steel 
3 = Other ductile materials 
4 = Cast iron 


User keys are: 


A: Input data 
B: Execute for seamless pipe 
C: Execute for plate-fabricated pipe 
E: Initialize program 
Method: 


The equations used are found in Section 304.1.2 of 
ASME/ANSI B31.3, 1980, Equation 3a. Mill tolerance for 
seamless pipe is 12.5 percent and 0.01 in for plate. 


Limitations: 


TI-59-11.2 deals with only one OD at a time. A flag is 
printed if the pipe wall thickness is greater that OD/6. 
‘The program does not check agains the use of cast iron 
above 900°F. Only English units may be used. 
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user Instructions 


Program Number _TI-59-11.2 Title _Minimum Pipe Wall Thickness 


Step Instructions Input Key-troke Display 
l Initialize program. E 0 
2 Input OD (in). OD A OD 
3 Input PRES (psig). PRES A PRES 
4 Input SMAX (psi) SMAX A SMAX 
5 Input TEMP (F) TEMP A TEMP 
6 Input CORR (in). . CORR A CORR 
1 Input MATL (1, 2, 3, or 4). MATL A MATL 
8 Select Analysis. 
SEAMLESS B t 
PLATE Cc T 


TI-59-11.2 initializes itself after every Tun. 
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Data Register Contents 


REGI- REGI- 
STER DATA STER DATA 
00 {Pointer 30 
a) JOD 31 
02 |PRESS 32 C 
03 |SMAX 33 
04 |TBMP 34 | 
05 |CORR 35 
Qo |MATL 36 
07 |Y factor a7 
os |T minimum 38 
09 adjusted temperature 39 
lo |T 40 
UW 41 
12 42 
13 43, 
14 Ad 
1S 45 
16 46 
17 47 
18 48 
19 49 
20 50 
21 51 
2? [ 52 
23 53 
} 24 54 
r 25 55 
a 
| 26 56 
| 27 57 
28 58 
29 T 59 
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Examples of TI-59-11,2 


a. 625 
450. 


900, 
O, O63 

di 
SEAMLESS 


o oc 
a ot 


450, "RES Excessive OD/T Ratio Flag 
2oooo, 


on 

PRES 

SMAS 

TENP 

CORR 

oe MATL 
SEAMLESS 


. 1619 


&. 625 
450, 
2000c, 
go4. 
Oo, 063 
4. 
PLATE 


o. 1700 
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Program: THe 


Sample Problem 


OD = 8.625" 
PRES = 450 psig 
SMAX = 20,000 psi 
TEMP = 900°F 
CORR = 0.063" 
MATL = Ferritic steel (Code =1) 


Key 
Step Input Stroke 

1 Ez 
2 8.625 A 
i} 450 A 
4 20000 A 
5 900 A 
6 0.063 A 
7 1 A 
8 B 


Display 


0. 

8.625 
450 
20000. 
900. 
0.063 
Is 


0. 


Printer 
8.625 OD 
450. PRES 
20000. SMAX 
900. TEMP 
0.063 CORR 
1. MATL 
SEAMLESS - 
0.1819 Tt 
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Comments 


Initialize program. 
Stores OD in RO1. 
Stores PRES in RO2. 
Stores SMAX in RO3. 
Stores TEMP in R04. 
Stores CORR in ROS. 
Stores MATI in RO6. 


The program executes all the 
equations for seamiess pipe. The 
value of Y is calculated and stored in 
RO7. The minimum thickness from 
Equation 3a is calculated. The como- 
sion allowance is added and the mill 
tolerance (12 1/2% in this case) is 
also added. The final value of T is 
Stored in R10. The value is com - 
pared with OD/6. The T value is 
printed. 


Coaing Form 


nogram Number TI-59-11.2 Title Minimum Pipe Wall Thickness 


x Code Key Comments Loc Code Key Comments Loc Code Key Comments 
“te LBL | Input routine; 060 08 @ 120 OG 90 | First test to 
tA uses ROO as a O61 06 & 121 04 4 _ |Jassign value of Y. 

2 tT | pointer. a6z2 93 3 22 09 9 | This section 
~S RC# O63 06 6 123 32 XIT | determines if 
30 90 064 69 OP 24 43 RCL |Y =0-4 or if 
62 OF 065 0g oO 125 09 OF |Y=07. 
qa O4 (66 64 oTo 126 22 INY 
j2 alt 067 oo ag 127 77 GE 
24 OP es 2a 22 28 25 CLR 

; oo 06 069 76 LBL | Main control for 29 Of 1 

No ee ST O70 12 C | plate-fabricated 30 OL 1 

it) Be OD 571 25 CLR |pipe. Loads alpha | 131 05 5 

2 69 OP O7z 69 OP | registers with 132 oO1 1 

3 20 20 073 o2 oz |“PLATE.” 38 32 #2T 

jie 69 OP N74 63 4 34 43 RCL 

5 00 00 075 43 3 125 09 09 

Ms_91 R“S N76 a2 2 136 77 GE 

1? 76 LBL |Subroutine: A77 O7 3 127 23 

8 16 A' | Calculates 44 128 (1 1. | Test to see if 

9 43 RCL | minimum wall 13 3 i3f Oi 1 temperature is 

020 Ol 1 |thickness per a3 = 140 on O greater than 1100°F 

1 65 xX equation 3a. a? 5 14i 00 @O (normalized). 

2 ¢3 RCL A 1 142 32 KIT 

m3 02 O02 e 143 43 RCL 

me 55 = on an 144 09 09 

ws Ye e ag 03 |Sets PLATE” flag. ee: is _GE 

uo 23) . 26 STF 1Go 30 TAF 

. — as 12 02 47 91 1 Interpolation 

98 43 RCL = — - 42 01 1 routine between 
29 03 03 ae Printalpha label. | i45 99 0 | 1050°F and 1100°F 

0 85 + iso)600 60 (normalized). 

1 42 RCL Interpolates Y 

82 02 02 ; between 0.4 and 

Ha - a 03° Test to see if 0.5. 

nS 4? az 3 if material is #3 or 

ao « 43 RCL | #4. 

036 54 =) ne ae 

7 85 + Pe. 

1 43 RCL a8 are 

ms o95 a5 35 mee 

0 95 = ag cP 

me oe ue 86 STF |Set Flag 1 if : 

4 a RTH 40 IND | material is #1, or < 

SS - O6 O86 | Flag 2 if material is + 
vel 6 LBL | Main control for 22 IN | #2. 1 
4312 B | seamless pipe. S87 IFF 5 
ho 03 3 Loads alpha o1 a Be 
MY 06 6 registers with 24 CE 7 
M§ 01 1 | “SEAMLESS.” oi 1 68 
un 07 ~=7 of 45 3 Interpolation 
. OL 1 oo a 17a routine between 
i 03 5 i sf + Normalize ral 1100°F and 1150°F 
083 69 oF 112 76 LBL | temperature to 172 (normalized) 
= le (02 113 24 CE | stainless steel, if 73 interpolates Y 
4 03 3 id 3 RCL | necessary. 174 between 0.5 and 
% 00 0 115 oa o4 Fa 07. 
@ zg 116 95 = : 
Eo F i? 42 8ToO 
me 2 is a9 49 
a is of 1 
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BDaPWMH OM BIN 


c 


mabe 


Po PO PADI DDS FO Ay Ag}Po Po bo fo Fo} 


ep) 


MoOBnwnwn 


HNaMopBHaUe 


~o 


Comments Loc Code Key Cumunens Loc Code Key Comments 
240 a0 00 sU0Q US 3 
e419 48 RCL 301 Us & 
242 01 O14 302 05 5 
243 55 + 303 01 1 
244.06 6 304 a7 7 
45 95 = 305 2 3 
246 77 GE 306 06 © 

If temperature e47 70 RAD sof #2 S10 
>11500.7 isthe | 248 06 6 |Load alpha 308 02 De 
assigned value of | 242 G4 + |register with = 
Y. 250 03 3 |"=OD6.” a 
251 Q2 2 
252 OL 1 : 
253 06 6 a 
254 06 6 A 
If temperature 255 03 3 
< 105004 isthe | 256 Oo 0 To 
assigned valueof | 257 O7 7 
Me 258 69 OP 
259 01 at 5 
260 76 LBL 4 
261 YO RAD > 
262 Q3 3 a 
IfMATLiscast | 263 O07 7 a 
iron, Y = 0.0. 264 69 OF a 
265 O4 04 
266 3 RCL 
267 10 10 Le 
CalculatesTmin | 2648 Se FIX a 
and adds mill 269 04 O4 i 
tolerance. 270 69 OF | Prints Tmin. = 
Eagl 6 06 4 
272 5 ELE 
273 2 IN 
& FIM 
3 OF  |Prints flag, if any. 
4 04 - . 
9 uP 
o O58 
5 CLR 
LEL | Initialize. 


STF | Reset all flags. 


me omroon a 
mW 


Stores Tmin in R10. 


Clear test register. 


n 
wo 
=f 

IT] 


OMOVMONNeENNMOMPOHAINNOD 


Clear all memories. 


200 40 00 


Set pointer for 
input routine. 


OD 


Set alpha labels. 


TRUOBRANHROWMOUVA OB OR 


NM why wry NDI 92 1O 1) Fo) had ho Ps 


9 1 

96 6 

97 642 STO 
Test if Tmin = 998 o1 a1 
OD/6. 99 eo & 
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Program TI-59-11.3: Pipe Thickness, Class Array, for Seamless 
Pipe and Pipe Fabricated from Plate 


Introduction: 


71-59-11.3 is an extension of TI-59-11.2. Whereas the 
latter provides the user with a pipe thickness for a 
specific pipe size, this program provides the pipe thick- 
ness for all pipe sizes, from 1/2 in to 36 in for seamless 
pipe, and from 16 in to 36 in for pipe fabricated from 
plate, ina given class. The user inputs the temperature, 
pressure, allowable stress, and corrosion allowance, 
and the program provides all the pipe sizes and their 
tespective wall thicknesses. TI-59-11.3 does not check 
for high temperature when cast iron is noted, nor does 
it check to see if the wall thickness is one-sixth of the 
pipe diameter. The program deals with carbon steel, 
stainless steel, cast iron, and what the code terms “other 
ductile materials.” 


Nomenclature: 


The user provides the program with six pieces of data: 


THRD: Threaded or not threaded class; 1 = yes, 
0=no 


Internal pressure (psig) 


SMAX: Allowable stress (psi) 
DEG: Maximum temperature (°F) 
MATL: Material code 
= Ferritic steel 

2 = Austenitic steel 

3 = Other ductile materials 

4 = Cast iron 
CORR: Corrosion allowance (in) 
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Three user-keys operate the program: 


A: Input of data 
B: Execute for seamless pipe 
C: Execute for pipe fabricated from plate 
E: Initialize 
Method: 


The equation used is Equation 3a found in ANSI/ASME 
B31.3, 1980. Mill tolerance for seamless pipe is 124 
percent; .01 in for pipe fabricated from plate. Thread 
allowance is .060 in for 1/2 in and 3/4 in, .075 in for 1 in 
through 2 in. Thread allowance is not added to stainless 
steel in the 2-in size. 


Limitations: 


TI-59-11.3 is set to provide a certain array of pipe sizes. 
For the seamless array, those sizes nof included are: 1% 
in, 24 in, 3% in, 5 in, 22 in, 26 in, and sizes above 36 in. 
For pipe fabricated from plate, the array includes all 
sizes from 16 in to 36 in, excluding 34 in. The program 
makes no check against temperature or pipe thickness 
limitations as defined in ANSI/ASME B31.3, 1980. The 
program uses only English units. The program is self- 
initializing after the first run; that is, after the imitial 
analysis, the user does not have to repeat Step 2 of the 
user instructions. 


g User Instructions 

Program Number _TI-59-11.3 _ Title Pipe Thickness for Seamless Pipe 
Step Instructions Input Keystroke Display 

1 Read magnetic cards (3 sides). CLR 1, 2, and 3 
2 Initialize program. E 0 

3 Input thread code. THRD A THRD 

4 Input internal pressure. PSI A Pet 

5S Input allowable stress. SMAX A SMAX 

6 Input temperature. DEG A DEG 

7 Input material code. MATL A MATL 

8 Input corrosion allowance. CORR A aoSe 

9 Execute seamless analysis. B any 

User Instructions 
Program Number TI-59-11.3 Title Pipe Thickness for Pipe from Plate 

Step Instructions Input Keystroke Display 
1 Read magnetic cards (3 sides). CLR 1, 2, and3 
2 Initialize program. E 0 
3 Input thread code, 0 (zero) A 0 
4 Input internal pressure. PSI A PSI 
5 Input allowable stress. SMAX A SMAX 
6 Input temperature. DEG A DEG 
7 Input material code. MATL A MATL 
8 Input corrosion allowance. CORR A CORR 
9 Execute pipe from plate analysis. te array 
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Data Register Contents 


REGI- REGI- 
STER DATA STER DATA 
36302736 
3327133717 
84 
1.05 
34 (| 1.315 
MATL 35 | 19 
| 06 | CORR 36 | 2.375 
mE 
08 | IND 38 4.5 _| 
DSZ 39 | 6.625 
10 40 8.625 
11 41 | 10.75 
12 | Thread allowance 42 | 12.75 
13 43 | 14 | 
14__‘| Y factor 44 16 
15 45 | 18 | 
16 46 | 20 
17 47 22 
18 | 48 | 24 | 
19 | 49 | 26 
: 
21 51 30 
22 52 36 
23 53 | 37233516 
24 | 54 333624 
25 55 | 36301344 
26 56 161722 
27 57 | 30133727 
58 15323535 
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Example 1 


INTERNAL PRESSURE PIPEWALL CALCULATIONS 


PLATE 
“Threaded class 
Internal pressure 
Allowable stress 
Temperature 
Material Code 
Corrosion allowance. 
Plate 
Seamless schedule schedule 
1Go 
g0 
2 
go 
f=fo) 
_40__ 
_40 | 
i 40 
DoS —_— 
an 22 _ 
1 oa Zo 
12 
2345 _2o 
14 
259% oe. 
16. 
asen oO 
eel 8. *1 = threaded; 0 = not threaded 
Frings 20 Internal pressure = psig 
a S Allowable stress = psi 
“ e 5 y Zo Temperature = °F 
— go Material code: 
o 3° 1 = Ferritic 
“30, 2 = Austenitic 
4544 zo 3 = Other ductile material 
26. 4 = Cast iron 
5257 _30 Corrosion allowance = inches 
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Example 2 
INTERNAL PRESSURE PIPEWALL CALCULATIONS 


SEAMLESS PLATE 


0. THED 
*Threaded class 450, PSI 
Internal pressure 15000. 
Allowable stress 
Temperature 
Material Code 
Corrosion allowance. 
Plate 
Seamless schedule schedule 
STD 
30 
3 30 
450 XS 
2 
0. 483 ~ KS 
0.515 : _SPecaL 
0.5493 T _SPECAL 
30. 
0.5782 - 30 
22 
0. 6079 T pein 
36. 
6670 40 
*] = threaded; 0 = not threaded 
Intemal pressure = psig 
Allowable stress = psi 
Temperature = *F 
Material code: 
= a 
2 = Austenitic 
3 = Other ductile material 
4= Cast non 
Corrosion allowance = inches 
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303 GENERAL 


Components manufactured in accordance with 
standards listed in Table 326.1 and Table A326.1 
shall be considered suitable for use at pressure-temper- 
ature ratings in accordance with 302.2 or A302.2. 
The rules in 304 and A304 usually are for the pres- 
sure design of components not covered in 302.2 or 
A302.2, but may be used for a special or more 
rigorous design of components covered by 302.2 or 
A302.2. Designs shall be checked for adequacy of 
mechanical strength under applicable loadings enum- 
erated in 301. 


304 PRESSURE DESIGN OF METALLIC 
COMPONENTS 


304.1 Straight Metallic Pipe 


304.1.1 General 
(a) The required thickness of straight sections of 
pipe shall be determined in accordance with Equation 


2 


The minimum thickness for the pipe selected, con- 


(For nonmetallic components see A304.) 


Source Documentation 


PART 2: PRESSURE DESIGN OF PIPING 
COMPONENTS 


c¢ = the sum of the mechanical allowances (thread 
or groove depth) plus corrosion and erosion 
allowances. For threaded components, the 
nominal thread depth (dimension A of ANSI 
B2.1, or equivalent) shall apply. For ma- 
chined surfaces or grooves where the toler- 
ance is not specified, the tolerance shall be 
assumed to be 0.02 in. (0.5 mm) in addition 
to the specified depth of the cut. 


d = inside diameter of pipe. For design calcula- 
tions, the inside diameter of the pipe is 
the maximum value allowable under purchase 


specifications. 
P = internal design gage pressure 
D~ = outside diameter of pipe 
SE = allowable stress, from Appendix A 
S = basic allowable stress for materials, 
excluding casting, joint or structural 
grade quality factors 
E = quality factor as defined in 302.3.1(a) 
Table 304.1.1 
Im=tte (2) Values of Coefficient, Y, 


when ¢ is Less Than D/6 


900 Temperature, °F (°C) 1,150 


sidering manufacturer’s minus tolerance, shall not be asterisis (485) 950 1,000 1,050 1,100 (620) 
& Lower (610) (640) (560) (595) & up 


Jess than fy). 


'm 


(b) The following nomenclature is used in the Ferritic 
equations for pressure design of straight pipe. 


Steels 0.4 0.5 
= minimum required thickness, including me- Austenitic 
chanical, corrosion, and erosion allowances Steels 0.4 0.4 


= pressure design thickness, as calculated in Other ductile 
304.1.2 for internal pressure, or in accor- 
dance with the procedure listed in 304.1.3 
for external pressure 


Metals 0.4 0.4 


Cast Iron 0.0 - 
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0.7 0.7 #07 07 


0.4 04 #05 0.7 


04 04 O04 04 


AN AMERICAN NATIONAL STANDARD 
CHEMICAL PLANT AND PETROLEUM REFINERY 


Y = coefficient having values as given in Table 
304.1.1 for materials indicated and when t is 
less than D/6. For intermediate temperatures, 


the value of Y may be interpolated. When ¢ 


is equal to or greater than D/6, Y= ad 


d+D 
304.1.2 Straight Pipe Under Internal Pressure 
(a) The internal pressure design thickness, f, shall 
be not less than that calculated by Equation 3a, when 
tis less than D/6: 


PD 
“T(E + PY) Ge) 


Equations 3b and 3c may be used instead of Equation 
3a: 


t 


PD 
t= OSE (3b) 
D SE-P _ , 
t= at “-\sreP } (Lame Equation) (3c) 


(b) Pipe with r¢ equal to or greater than D/6, or 
P/SE greater than 0.385, requires special considera- 
tion, taking into account design and material factors 
such as theory of failure, fatigue and thermal stresses. 


304.1.3 Straight Pipe Under External Pressure. 
For determining wall thickness and stiffening require- 
ments for straight pipe under external pressure, the 
procedure outlined in paragraphs UG-28, UG-29 and 
UG-30 of Section VIII, Division 1 of the ASME Code 
shall be followed with the following exception. In 


determining P,, for cylinders (pipe) having D/t < 
10,1 S shall be lesser of 1-1/2 times the basic allow- 
able stress value at design temperature from Appen- 
dix A of this Code (see Appendix A, Note 16) or 0.9 
times the tabulated yield strength of the material at 
design temperature. 


304.2 Curved and Mitered Segments of Metallic 
Piping 
304.2.1 Pipe Bends. The minimum required thick- 
ness, fm, Of a bend, after bending, shall be deter- 
mined as for straight pipe in accordance with 304.1. 


304.2.2 Elbows. Manufactured elbows not in 
accordance with 303 shall meet the requirements of 
304.7. 


1The symbol D is equivalent to the symbol Do of ASME 
Code Section VIII. 


ANSI/ASME B31.3-1980 EDITION 


PIPING 304.1.2-304.2.3 


304.23 Miter Bends. An angular offset of 3 deg~ 
or less (angle a in Fig. 304.2.3) does not require 
design consideration as a miter bend. Acceptable 
methods for pressure design of multiple and single 
miter bends are given in 304.2.3(a) and (b). 


(a) Multiple Miter Bends: The maximum allow- 
able internal pressure shall be the lesser value cal- 
culated from Equations 4a and 4b. These equations 
are not applicable when 0 exceeds 22.5 deg. 


= SE(T-c T-¢ 4 
Pn =r, etre tnd Va = (4) 


Py = eG Ry 1) 
" ; 


4b 
- 0.57; Ge) 


(b) Single Miter Bends 
(1) The maximum allowable internal pressure 
for a single rhiter bend with angle @ greater than 22.5 
deg shall be calculated by Equation 4c: 
(2) The maximum allowable internal pressure 
for a single miter bend with angle @ greater than 22.5 
deg shall be calculated by Equation 4c: 


= = T-c | (4c) 
Ty (T-c) + 1.25 tan 8 V r3(T-c) 


(c) The following nomenclature is used in Equa- 
tions 4a, 4b, and 4c for the pressure design of miter 
bends: 


P. 


m 


c = same as defined in 304.1.1 

P,, = maximum allowable intemal pressure for 
miter bends 

Tz, = mean radius of pipe using nominal wall T 

R, = effective radius of miter bend, defined as 


the shortest distance from the pipe center- 
line to the intersection of the planes of 
adjacent miter joints 


FIG. 304.2.3 — NOMENCLATURE FOR MITER BENDS 
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Program: DNS 


Sample Problem 


THRD = 1 (yes) 
PSI = 450 psig 
SMAX = 20,000 psig 
DEG = 650°F 
MATL = Ferritic steel (Code = 1) 
CORR = 0.063" 


Key 
Step Input Stroke 
1 E 
2 1 A 
3 450 A 
4 20000 A 
| 650 A 
6 1 A 
7 063 A 
8 B 


Display Printer Comments 
0. Jnitialize program. 
i. 1. THRD | Stores THRD in RO1. 
450. 450. PSI | Stores PSI in RO2. 
20000. 20000. SMAX | Stores SMAX in RO3. 
650. 650. DEG | Stores DEG in R04. 
1. 1. MATL | Stores MATL ion ROS. 
0.063 0.063. CORR | Stores CORR in R06. 
0. SMLS The program first calculates the 
value of Y and stores it in R14. 
0.5 Then for each value of OD that is 
0.1513 i stored in memory, the program 
0.75 calculates the minimum wall 
0.1540 T thickness using Equation 3a. 
1. ‘The thread allowance, corrosion 
0.1745 T allowance, and mill tolerance are 
1.5 added, as needed. For each case, 
0.1819 T the nominal pipe size and minimum 
wall thickness are printed. The 
0.1880 T Program continues until 1/2" to 36" 
3. Pipe sizes have been analyzed. 
0.1166 TE 
4, 
0.1293 T 
6. 
0.1564 T 
8. 
0.1819 T 
10. 
0.2090 - 
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step 


Key 
Input Stroke 


Display 
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Printer 


ee ee | 


Comments 


Coding Form 
T1-59-11.3 Title Pipe Thickness Array 


Program Number 


Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
ag0 CS 5 [Initialize program. | 060 43 RCL 120 05 5  |Tests to see if 
001 33 3 IRST resets all flags} 061 O06 06 2i a0 90 temperature > 950 
O02 <2 STD |to“OFF” Loads | 062 85 + 122 32 81T [°F (normalized). 
O03 GS O9 |pointers for input | Q63 43 RCL 123) 43 RCL 
004 20 0 Jroutine. a64 2 ie i2 oo 04 
0GS 42 STO 065 Sa) 25 77 GE 
agé ao oo d6é6 87 IFF a6 19 Tt 
oor 42 STO aay a2 oF {27 09 9 [Interpolation 
ods le 14 068 70 RAD 128 05 5 |routine apo 
009 31 R“S aes 65 X ‘ 29 OQ QO | temperature © 
010 76 LBL or os 8 eae 130 75 _~ [90°F and = 950. 
Oll IS £ a71 ss = pene 131 43 RCL 
Q12 81 RST a72 o7 F jaz 04 Q4 
Bre 76 7 Input routine uses | Q73 41 «GTO 33 a . 
O14 !1 ROO and R09 as 2g on & 134 65 . 
015 49 OP |pointers. foe oe 35 93 .  |y is between 0.4 
016 20 20 ara = RAD 136 ao oO and 0.5. 
g17 69 OP arr oss + 37 
big 29 39 ara 93 138 
QL 2 ST# _ ras a 39 2 
020 90 00 fhe 140 
O21 32 NIT a8i1 76 LBL 41 a 
022 73 RC« ag2 80 GRD : a 
O23 a9 a9 oe3 35 = > it 
az4 69 OP acl ae Bi 4a To 
025 02 04 me oe Be a5 14 4 
026 32 x! fe. tk a 146 61 GTO 
il ns7 a3 3 ents ii 147 ‘ 
fee a = zs pipe 148 76 LBL Interpolation 
2 89 69 OF : 149 19 0D routine between 
Main equation 090 o4 o4 150 GF ft temperature = 
subroutine. O91 32 xt isi oo a 950°F and 
Performs a92 69 OP 52 ogo temperature = 
Equation 3a. Flag1) 993 6 6 5 ag | 1000°F. 
is set if the class is 094 69 OP 15 75 
threaded. Thread 095 29 22 iss) (43 
allowance is in R12. 096 2 THY 56 a4 
g 097 58 FIX is? 44 
= age 92 RTH 58 65 
L 099 76 LBL |First test to isg 93, 
: 100 17 B*  fassign value of Y. o 
ae L 101 068 $§  |This section a 
42 02 02 102 09 9 |determines if 4 
oe oe 103 09 9 |Y=04orY =0.7. 7- 
oe te ae 104 32 Ki + 
045 08 08 105 43 RCL LBL 
i 02 2 106 O04 a4 EP | If temperature > 
ga aaa 107 22 IHV . 1000°F Y = 0.7. 
Oro 32 = 108 77 GE 5 ? 
a 09 24 CE 69 95 = 
nH 02 a i10 O01 1 |All temperatures 7O 42 570 
ee oe 111 00 OU |are normalized. 171 #14 «#14 
wee eT 112 of O 172 61 CTO 
052 43 RCL r] a d 
Se ae 13 G1 1 ie 20 B* 
054 02 02 1a Be KE 74 76 LBL 
055 65 « 15 43 RCL oi D4 cE If temperature < 
056 23 RCL ae ta oe 900° Y = 0-4. 
05 14 |R06 contains the | 447 77 GE So, je 
058 54 ») — |corrosion 112 29 CP ei eter 
059 85 +  |allowance 3 se an 
. 119,09 ~«9 7a ig | 
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Voc Code Key Comments Loc Code Key Comments Loc Code Key Comments 
ist Fé LRL [Skips to PRD for | 240 17 BF 200 1é A* 
181 OQ E* — |plate analysis. a7? IFF gOt 97 SZ 

82. Sy IFF G2 2 * 90 O80 
83 U2 U2 49 PRO 23 LMA 
S449 PRD 76 LBL | Begin array 3 OF 
igs is 0 i4 0 |analysis for BoE 
86 76 LBL [Main control . _ |seamless pipe. z 
187 12 B | for seamless (| | Adjust thread 4 
188 98 ADN |analysis. Prints & {allowance (R12). 7 
89 86 STF |“SMLS.” TO 2 
iyo. 40 IND le = SUM 
ai ia 3 E e 0 of 
an oe < 2 4 3 3 
93 sTo a1 6 0 
a4 as 31 6 A" 
a5 . Bt 9 OP 
98 5 2 q o BE 
oF oo . : 
8 


JT SO 
DY a OR oo 


Begin array 
analysis for 
plate-fabricated 
Determines Pipe. Array starts 
material type. @ 16" pipe. 
Normalizes If material is 
6 material stainless steel, 
2 temperatures to zero out thread se 
&2 carbon steel. allowance for 2” aaa 
2 Temperature for size. q : C 
2 material #3 is 3 DEG 
228 SUM |reduced by 600°F 343 LBL | End of program. 
274 746 LBL |to insure Y = 0.4. 344 ESC 
2250 85 1x 345 ALY 
296 32 346 98 AnY 
237 4a 347 any 
228 67 EG 348 ADM 
229 14 JB 342 RST 
230 06 6 aoa LBL | Main control for 
231 ac 0 3al c plate analysis. 
232 0 0 332 ADM 
on i in This routine skips | $54 8 
ao re certain sizes ofpipe.| ?-'t 
235° 94 4+ Pip 355 
226 44 356 
7 04 Sor 
z : 
2 a %% Calls routine to 3 bata} 
oF 68 determine Y value. 339 


Comments Loc Code Key Comments i Code Key Comments — 
Prints “PLATE.” 


n 


The following data must be stored in 
memory and then recorded onto a 


Magnetic card (side 3). 

36302736, 3a 
3327133717, 31 
Q, $4 32 
1.05 33 
1.315 34 
1.9 35 
2.375 36 
35 3F 
4.5 38 
6 625 33 
8.629 40 
10, 75 <1 
12.75 42 
14, 43 
16, 44 
18. 45 
20. 46 
22. 47 
24, 48 

26, 49 < 
28, 30 
30. Si 
32. 2 
36. a3 
37233516. a4 
333624. Ss) 
36301344. 56 
161722. 5? 
30123727. 53 
15323535, 59 
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Program HP-41CV-11: Pipe Wall Thickness by Class and Single 
OD, and Maximum Allowable Working Pressure 


Introduction: 


HP-41CV-11 performs three separate functions. First, it 
determines the pipe wall thicknesses for an entire class 
from 1/2-in to 36-in pipe size for seamless pipe, and 
16-in to 36-in for pipe fabricated from plate. Second, it 
determines the pipe wall thickness for an individual 
outside diameter that is input by the user. This may be 
done for seamless pipes as well as those fabricated from 
plates. Third, the maximum allowable working pres- 
sure can be calculated for the input values of outside 
diameter and nominal thickness. The program calcu- 
lates the Y factor based on temperature; assigns the 
correct value for thread allowance, if the input calls for 
threads; and adds the corrosion allowance and the mill 
tolerance. The program uses the equations found in 
ASME/ANSI B31.3, 1980. 


Nomenclature: 


Up to eight items are input for any of the three analyses: 


STRESS: 
TEMP(F): 


Allowable stress (psi) 
Design temperature (°F) 


CORR: Corrosion allowance (in) 
MATERIAL: Material code 
CS = Ferritic steel 
SS = Austenitic steel 
DM = Other ductile materials 
CI = Cast iron 
THREADED: Thread flag (Y or N) 
SEAMLESS: Seamless flag (Y or N) 
PRESSURE: Design pressure (psig) 
OD: Pipe outside diameter (in) 


T: Pipe nominal wall thickness (in) 
The program calculates or assigns the following data: 


Y: Y factor from Table 304.1.1 in 
ASME/ANSI B31.3 


Thread 
allowance: 0.060 in for 1/2 in and 3/4 in 
0.075 in for 1 in to 2in 
Mill 
tolerance: 12¥2 percent for seamless pipe 


0.01 in for plate-fabricated pipe 
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Method: 


The equation used for minimum allowed wall thickness 
to contain internal pressure is Equation 3a from Section 
304.1.2 of ASME/ANSI B31.3, 1980. The corrosion al- 
lowance, thread allowance, and mill tolerance are add- 
ed, according to the input. 


so y= 10) 
Equation 3a = XSE + PY) + PY) 


For the maximum allowable working pressure calcula- 
tions, the equation is the mirror image of Equation 3a. 
Given a nominal wall thickness for a distinct outside 
diameter, the program calculates the maximum pres- 
sure that can be sustained by the nominal wall: 


_GHr) 1 


jan 
1 — (2Y¢’D) 


t’ is the corroded wall thickness, less the mill tolerance 
and thread allowance. 
The following data is defined: 


Design pressure (psig) 
Outside diameter (in) 
Allowable stress (psi) 
Joint efficiency factor 

Y factor from Table 304.1.1 


kmnoy 


Limitations: 


The program selectively analyzes certain pipe sizes in 
the class arrays. Those sizes not analyzed are: 27in, 3+ 
in, 5in, 22 in, 26 in, 28 in, 32 in, or 34 in for the seamless 
class. The 34-in size is omitted from the plate classes. 
Only 12% percent mill tolerance is used for seamless 
pipe, and only 0.01 in mill tolerance is used for pipe 
fabricated from plate. The program does not check to 
see if the wall thickness is greater than OD/6, nor does it 
check for a temperature limitation for cast iron. Only 
English units may be used. 


Keyboard Card Labeling 


Bese 
iF FF 
Seb88& 
——— is 
i — 
See & 
a 
= 


KEYBOARD 


User Instructions 


Program Number HP-41CV-11 Title Pipe Wall Thickness 


Step Instructions Input 
1 Read in magnetic cards. 
2 Initialize program. 
3 Read in data card.* 
4 Input stress value. STRESS 
5 Input design temperature, ‘ TEMP 
6 Input corrosion allowance. , CORR 
7 Input material designation. MATL 
8 Answer "threaded" prompt. YorN 
9  Answer"seamless" prompt. YorN 
10 Choose analysis: 
Class Array 
11 Input design pressure. PRESS 
Single OD 
11 Input design pressure. PRESS 
12 Input outside diameter. OD 
MAWP 
11 Input outside diameter. OD 
12 Input nominal pipe thickness. T 


* This step is only necessary if the data card has 
not been read in previously. The program will 
only prompt if the data is not in memory. 
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Keystroke 


Display 


CARD 
STRESS= 
TEMP(F)= 
CORR= 
MATERIAL= 
THREADED? 
SEAMLESS? 
ANALYSIS. . . 


PRESSURE= 


PRESSURE= 
OD= 


OD= 
Tes 


Program Number _HPAICV-1)_ : 

DATA REGISTERS 

00 Indirect Register 

0) = STRESS 

02 TEMP 

03 CORR 

04 MATL 

05 THREADED? 

06 SEAMLESS? 

07 PRESSURE 

08 oD 

09 «OT 

10 “war 

11 “34” 

pm “| 

13 “1-1/2” 

14 Thread Allowance 

1 = =6Y 

16 —_ Indirect register 

17 PRESSURE (MWAP analysis) 

18 

19 

20 «O¢ 

21 

22 

23 

24 

25 

26 

7 

28 = 0.84 

29 1.05 

30 1315 

31 «19 

32 2.375 To be recorded on 

33 34,5 magnetic cards 

34045 

35 6,625 

36 8,625 

3710.75 

38 «12.75 


Registers, Flags, Assignments 


Title 


Pipe Wall Thickness 


Pa RE ig eh rr 


DATA REGISTERS 


39 14 
40 16 
41 18 
42 20 
43 22 To be recorded on 
44 24 magnetic cards 
45 26 
46 «28 
47 30 
48 32 
49 36 
FLAGS 
Init 
# s/c Set Indicates 
1 Cc Threaded pipe 
2 Cc Plate-fabricated pipe 
5 Cc Single OD analysis 
ASSIGNMENTS 
Label Key Function 
WLT E(15) 
CLAS A (11) 
OD B(12) 
MAWP C (13) 
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Clear Indicates 


Key 


Bample 1 


STRESS= 26,088. 688 
TERPCF)= 658.688 
CORR= 8.063 
RATERIAL =| 
THREADED?H 
SEANLESS?Y 
PRESSURE= 450.680 


CLASS ARRAY 
SEAMLESS 


Example 2 


STRESS= 28, 088. 882 
TEMPCF)= 658.888 
CORR= 8.663 
RATERIAL=CS 
THREADED?Y 
SERMLESS?Y 
PRESSURE= 458. 688 


CLASS ARRAY 
SEAMLESS 


Example 3 


STRESS= 28, O82. 828 
TEMPCF)= 658.888 


CLASS ARRAY 
SEAMLESS 


Example 1 is an unthreaded class of carbon steel pipe 


at 650°F, 450 psig design pressure, with an 
allowable stress of 20,000 psi and a corrosion 
allowance of 0.063". It is a seamless class. 

Example 2 is the same class of pipe as Example 1, except 
that it is a threaded class. 

Example 3 has the same design conditions as the two 
previous examples but it is a stainless steel 
class. Note that the 2” size is not threaded. 
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Example 4 


STRESS= 26,060,688 
TENPCFD 1,950, 008 


CORRE 8,063 
NATERIAL=DH 
THREADED ?Y 
SEANLESS?Y 
PRESSURE 458, 808 


CLASS ARRAY 
SEAMLESS 


Example 5 


STRESS= 26,000, 000 
TENPCF)= 658, 008 
CORR: 6,663 
NATERIAL=CI 
THREADED?Y 
SEAMLESS ?Y 
PRESSURE= 450, 606 


CLASS ARRAY 
SEANLESS 


Example 6 


STRESS= 15,000, 060 
TENPCF>= 956, 088 
CORR= 0.125 
MATERIAL®CS 
THREADED ?N 
SEANLESS?H 
PRESSURE? 456,686 


CLASS ARRAY 
PLATE 


Example 4 is a class of materials that the B31.3 code 


designates “other ductile materials.” It has 
the same conditions as the former examples, 
except that the temperature is 1950°F. This is 
to show that for this material class, the value 
of Y is always 0.4. 

Example 5 is a cast iron class. For this material, Y is 
always 0.0. 

Example 6 is a piping class of plate-fabricated pipe at 
950°F, 450 psig design pressure, a corrosion 
allowance of 0.125" and a design stress of 
15,000 psi. The value of Y is calculated by the 
program and is equal to 0.5. 
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Example 7 


STRESS= 28,806,688 
TEMP<F)>= 656, 668 


CORR= 8.863 
MATERIAL=CS 
THREADED2N 
SEAMLESS?Y 


PRESSURE= 456.668 
OD= 8.625 


SINGLE OD 
SEAMLESS 


6.182 T 


Example 9 


STRESS= 20,000. 008 
TEMPCF>= 658,888 


CORR= 8. 863 
MATERIAL=CS 
THREADED? 
SEAMLESS? 


OD= 8.625 
T= 8.182 


MAWP 
SEAHLESS 


450.398 PSI 


Example 8 


STRESS= 15,600.806 
TEMP<F)= 958.688 
CORR= 8,125 
MATERIAL=CS 
THREADED? 
SEAMLESS?H 


PRESSURE= 458,068 
OD= 16.088 


SINGLE OD 
PLATE 


STRESS= 15,802. 086 
TEMP<F = 956,686 


CORR= 8.125 
NATERIAL=CS 
THREADEDON 
SEAMLESS 7H 
OD= 16.088 
T= 6.371 


MAWP 
PLATE 


449.125 PSI 


Examples 7 and 8 are analyses of specific pipe sizes, 
and not arrays. The design condi- 
tions are the same as the previous 


examples. 


Examples 9 and 10 are Maximum Allowable Working 
Pressure calculations. This analysis 
performs the opposite function from 
that of the other analyses. The de- 
sign conditions are exactly those of 


Examples 7 and 8. 
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ASME/ANSI B31.3, 1980 


t’: Minimum wall thickness to contain internal pres- 
sure (in) 

: Design pressure (psig) 

: Outside diameter (in) 

: Allowable stress at design pressure (psi) 

Joint efficiency factor 

: Pressure factor at design temperature from Table 
304.1.1 


<mnOy 


eG) 
2(SE + Py) 


(450)(8.625) 
2(20000 + (450)(0.4)) 


0.096" 


(0.096 + 0.063) x (8/7) = 0.182” 


(450)(16) | 
2(15000 + (450)(0.5)) 


236” 


(0.236 + 0.125 + 0.01) = 0.371” 


Maximum Allowable Working Pressure 


aay = SBCY) .. 1 
(D) 1 — (2y’(D) 
(20,000)(2)((0.182)(7/8) — 0.063) 1 
(8.625) 1 — ((0.182)(7/8) — 0.063)/(8.625) 
= 450.398 psi 
(15000)(2)(0.371 ~ 0.125 ~ .01) 1 
(16) 1 — (0.371 — .125 — .01)/(16) 
= 449.125 psi 
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program; HP-AICV-11 


Title 


Sample Problem 
Pipe Wall Thickness 


TBMP <F> = 650 °F 
CORR = 0.063" 


STRESS = 20,000 psi 


Input 


20,000 


650 

063 

“Cg” 

(no quotes) 
yn 


syn 


450 


Sample Problem (Sketch if Desired) 


PRESSURE = 450 psig 


MATERIAL = Carbon steel 


The class is threaded and seamless. 


Function 


R/S 


Display 


STRESS= 


SEAMLESS? 


ANALYSIS... 


PRESSURE= 
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Comments 


Initializes program. Stores the alpha labels for pipe 
sizes 1/2" to 1 1/2". Because the data card has been read 
into memory once, the program skips over the prompt 
for the data card. The prompt for the allowable stress is 
the first of the input sequence. 

Stores STRESS in R01. The program uses IN to input 
numeric data. 

Stores TEMP <F> in R02, using IN, a subroutine. 
Stores CORR in RO3, using IN, a subroutine. 

The program turns on the alpha mode for the material 
input. Stores CS in R04. 

Stores Y in ROS, using INAL, the subroutine used to 
input alpha data. 

Stores Y in R06, using INAL. The program sets Flag 1 
because the input is threaded. Flag 2 is left clear because 
the answer to the seamless prompt was Y. A 1 (numer - 
ic) is stored in R04, because the alpha input CS is in 
R04, The program prompts for which analysis is to be 
performed. Up to this point, all the input can apply to 
any of the three analyses. 


PRESS is stored in RO7. 


Input 


Function 


A 


Display 
(Printed output) 
CLASS ARRAY 
SEAMLESS 
IPS T 
V2 0.151 
3/4 0.154 
1 0.174 
1-1/2 0.182 
2  ~=0.188 
3. 0.117 
4. 0.129 
6. 0.156 
8. 0.182 
10. 0.209 
12. 0.234 
14. 0.250 
16. 0.276 
18. 0.301 
20. 0.327 
24. 0.378 
30. 0.454 
36. 0.531 


Comments 


The program begins the class array analysis. The pipe 
sizes 1/2" through 2" are executed using WL1, a subroutine, 
which is a subset of WL, a subroutine. The 

correct values for thread allowance are input to R14, by 

the program: 0,06" for 1/2" and 3/4", and 0.075" for 1" 
through 2". The 2” size is threaded because jt is not a stain- 
less material. The alpha labels for these sizes are stored 

in memory and are used by the program for printout. 

For the sizes 3" to 20", the routine WL is used. This 
routine uses the integer value of the pipe outside 

diameter for the printout. The program then performs 

the calculation for 24", 30", and 36" pipe sizes, skipping 
the sizes in between. 
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Coding Form 


fwgram Number _HPAICV-11 Title Pipe Wall Thickness 
we Key Key Comments Step/ Key Key Comments Ss 7 
t! 2 
Lee Entry Code Line Entry Code ce bee a, Suse 
QUOLBL *HLT* — | Initialize program. | 59 2 2 for stainless steel 
® CLA Clear any flags set ge (oe ta 
4 CF 01 by the program. Si REQ "MTL aatedal 168 ACA 
at CF 92 Store alpha labels 92 “DH* 4 for cast iron 101 CLA 
6 CF 93 for class array. 53 3 162 XEQ “WLI” 
4 FIX 3 54 %EQ@ “MTL* 103 ISG 88 If the class is a 
ae 55 "CI" 164 GTO “AD stainless class, the 
t a ‘a 56 4 105 RCL 04 i Nala is 
57_¥EQ “HTL" bel etre theres 
9 -V4- ° : Execute the pipe 
{8 ASTO 11 98 “AHALYSIS...") Program ae to 167 Ke? thickness ee 
ap $9 PRONE a ‘or a i for 2” pipe. 
LBL “CLAS Z 
: ATO 12 61 “PRESSURE="_ | Class array 116 STO 14 
1-1/2 62 ¥EQ "IN" analysis. Prompt 1L1LBL {1 
14 ASTO 13 63 ADY for design 112-2" 
15 RCL 28 Check if data is | 64 SF 12 — 113 Aca 
16 X#0? stored in memory. | 65 “CLASS ARRAY" Print analysis label.| 114 CLA 
17 GTO 18 If not, prompt for 66 PRA Call subroutines to] 445 yeg =yiy- 
18 27.849 user to read in data adjust temperature IL 
19 “DATA CARD card. zy aa and calculate Y. ee 6 Continue the class 
“Ts STO 14 array analysis for 
ae 69 XEO “¥* 118 33.042 ‘| 3” pipe through 
a eel tae | aber we Skip to plate 119 sto ag =| 2” Pipe. 
ction. All inpu 71 GTO "PL" analysis. 12BLBL “AE” 
I ly t 
23ST 00 fanalyei” “°"Y [72 “SEARLES” [Print seamless | 121 KEO “its 
25 XEQ *IN" = 73 PRA label. Print 122 ISG 06 
26 *TENP<F =" 74 *IPS" header for array. | 123 GTO "AE" 
27 XEQ IN" 75 ARCL 27 124 44 Execute the routine 
8 *CORR=* 76° 3 T" 125 STO 48 for 24” pipe. 
99 XEQ “IN" 77 ACA 126 i 
: an 78 ADY 127 STO 16 
2 maa ote i 
ey eaear ine 26 ADV Set thread 129 47 Execute the routine 
a oe 8 28.1 allowance for 136 STO 68 for 30” pipe. 
: sete 82 STO 16 %"" and %" pipe. 131 47.1 
e a Execute the pipe 
35 XQ “INAL* 83 .06 thickness rout ie a ae 
%v Tas - > 84 STO 14 for 4” and %" pipe. 
7 en. F is section sets $5 18.611 If the class is not 134 49 Execute the routine 
4 f he wires ee Pipe | 9¢ sto ag threaded, WL1 will 135 STO 68 for 36" pipe. 
3% RCL 17 ; g and plate- 874LBL “AC omit the thread 136 49.4 
39 RCL 85 Specere ee allowance. 137 STO 
4 ¥=¥? flag, according to | 88 ARCL IND 46 - 
8 RY? input values. 39 ACA 138 KEQ “HL* 
41 SF 61 98 CLA 139 ADY End class array 
42 CLK 146 ADY analysi 
@ REL 96 91 REQ “WLI PE ae 
44 421? pot es Ses lanes 142 STOP 
45 SF 92 93 GTO “AC allowance for a 
wp he : ; 94.875 1” through 2” pipe. 143¢LBL “PL Class array 
46 °CS This section stores 144 "PLATE" analysis for 
V1 a material code in | 25 S70 14 145 PRA pike fabricated 
48 XEQ *MTL* RO4 using 96 12.813 Execute the pipe | jag «pgs pipe. Print 
49 «0 MATERIAL: 9? STO 8 thickness routines “PLATE” and 
$9 
1 for carbon steel | 98¢LBL "AD" for 1” and 12” pipe. 147 ARCL 2? header for array. 
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Step! Key Key Comments Step! Key K 
. y Key Comments Step! K 
sd pa : = Line Entry Code Cine Enty ay! See 
197 XEQ "HLi* | from WLI t 
149 ACA 198 ARCL X different rune 246 STO 26 
158 ADY 199 “ET on 2 
151 AlV Rescate pine 288 ACA : 
152 CLA thickness geutine 281 ALY 249 RCL 81 
153 46.1 for 16” pipe to aoe te 250 + 
154 STO i6 36” pipe. End SINGLE OD 251 RCL 83 
283 ADY analysis. 
155 48.049 2ad aly os 
156 STO 88 205 STOP a : 
157 : — 4 RCL 28 
: 206¢LBL “MAKP MAWP analysis. 255 2 
158 STO 14 307 
159¢LBL “BA on ee coband nani! 25° 
an 
168 XEQ “HL* ae ye’ | wall thickness. | 29? RCL 15 
161 ISG 6a 19 XEQ “IN 208 + 
162 CTO “BAT 1 “T= 259 RCL 88 
163 ADY End of class array | 212 REQ "IN" Ball 
164 ADY analysis. 213 XEQ “T" Adj 261 - 
just 5 
165 CLE 214 xeg “y" ‘| temperature, 262 Iva 
166 STOP 215 XEQ “TH: calculate Y, 263 * 
1674LBL “OD" | Single ODanalysis.| 216 SF 12 eredate Be | Ee ere Uy 
168 8 Prompt for design | 217 *HAWP* cas ce. 265 ARCL 17 
169 $10 28 pressure. 218 Aly Print “MAWP.” | 266 “F PSI" 
178 “PRESSURE=" 219 PRA 267 ACA 
171 8E@ *IN" 226 CF 12 268 ADY 
172 “OD=" 2at FS? 82 *|iIf 269 ADY 
173 EQ *IK* 222 GIO C put "SEAMLESS | 208 AV 
174 “SINGLE OD” | Printanalysislabel.| 223 “SEAHLESS* | alpha register 271 CLR 
175 SF 12 224 G10 D and go to D. 272 STOP 
176 ADY 225¢LBL C If plate, put ee ee 
177 PRA 226 “PLATE OBLATES in alpha 274 RCL 29 thread allowance 
178 CF 12 | 227eLBL D register. 275 RCL a8 i on ee op 
179 CLA 228 PRA Print alpha 276 KY? ial 
188 XEQ “T Execute routines | 229 CLA register. Recall 27? GTO 12 
181 XEQ *Y" for temperature, 238 RCL @9 nominal wall 278 .06 
182 ¥EQ “TH Y, and thread 231 FS? 92 thickness. 279 STO 14 
183 FS? 82 a 232 G10 23 280 CTO 13 
184 GTO B the pipe is 233 7 Remove mill 2sleLBL 12 
185 “SEAKLESS" | abel If pibte go | 224 tolerance for 282 RCL 32 
186 PRA to B. “8 235 8 seamless pipe. 283 RCL 68 
187 CLA 2367 284 XY? 
188 GTO A Skip to A. 237 GTO 24 285 GTO 13 
1896LBL B Saar ATED 2390LEL 23 Ranavoumll 286 .675 
198 “PLATE” 239 .61 tolerance for plate 287 STO 14 
191 PRA 246 - pipe. 288 RCL 32 Stainless steel does 
192 CLA 24LoLBL 24 Calculate maximum) £29 RCL 48 not have a thread 
193¢LBL A Execute pipe 24? RCL 93 allowable working 298 RFT? allowance for 
194 SF 63 thickness routine 243 - pressure; bis in 291 GTO 13 er elze: 
195 9.1 tripurvaincet | saRL a 292 2 
196 STO 16 OD. Flag 3 returns} 245 - 293 RCL 04 
294 ey? 
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sep Key Key Commenis sae, Has 
Line Entry Code ; ee Gye eek Comments | Step) Key Key| — Comments 
% O10 13 _— a Bi oe 
N66 ae 5 J9WLEL “WL" [Routine that prints 
297 S10 14 nS * 394 RCL IHD 68 |the pipe nominal 
AIG0LBL. 13 346 STO 15 395 IKT = es the class 
239 RIN SELL 36 FG [ondup 
JOGOLBL *T* If the material is ma ied weetot “aa pa ho : 
Jel RCL 84 stainless steel, the 350 RCL 92 Rigs oar and 
302 2 temperature is 1000°F 309'FIR 3 
303 Key? adjusted 351 - 496 CLA 
34 RTH pn a tog 352 «604 4@10LBL “WLI” | Calculatesminimum 
305 159 calculation. 353 + 462 RCL IND 16 | wall thickness =~ 
36 ST- 92 354 CHS 463 RCL 97 for internal 
307 RTH 355 «7 4h4 + pressure using 
eaiisti é 
WSOLBL “Y= = are ANSI 8313 
389 RCL 94 rae re ale for 357 $10 15 466 / 
ipe thic! 
318 4 foutine. If & a ___| 467 RCL 15 
3 Xey? cast iron, Y = 0.0. S9*LBL 49 Y for cast iron is 403 RCL 47 
312 G10 69 a sas ida 409+ 
313 CLY = 361 $10 15 418 RCL #1 
3183 If “ductile 362 RTH 441 + 
material,” Y = 0.4 | Z636LBL "HTL" = 7 
US X=? regardless of This routine setsa| 412 / 
316 CTO H temperature. on et ecdetes theo | 413.0. a2 
a 62 If temperature is | 366 RCL 64 1 = Ferretic Steel x 3 : 
88 greater than 900°F | 3g7 ¥#Y? 2 = Austenitic ? Gt Skips thread 
BI XY? (adjusted) go to 07. ¥ , Steel 416 GTO F allowance. 
320 GTO 02 1 rn eee 417 REL 14 | Adds thread 
ii o 
Z1+LBL H If temperature is 374 STO a4 roe ae 418 + allowance. 
2 .4 less than 900°F 371 Code is in R04. 4159LBL F 
323 S10 15 (adjusted), RIN 426 FS? 82 
324 RIN Y = 0.4. eeetinid Input routine for |_421 G10 2? | 
J25LBL 87 If - T numeric values. 422 8 | Adds mill tolera 
36 CLY a peers 374 STO IND 8 noe 423 + for seamless a 
Re? 1688 (adjusted) go to 08. 375 ACA pointer (R00). 4247 
328 RY? 376 ACK 425 7 
29 CTO a8 ar?’ EREUF 426 GTO 26 
0.7 Tt 378 1 427eLBL 27 Adds mill 
Bl $10 15 greaterthan 1000°F, 379 ST+ 68 428.61 tolerance for 
age (PTS ae ca oe 
BILBL 88 3 ¢LBL “INAL™ | Input routine for LBL 26 : 
334 RCL a2 et it = pe 4 382 ACA oe values. 431 ISG 16 Prints nominal 
35 958 1000°F go to 03. | 383 AON Pesapypine. |) AFG | rem oe 
336 RHP? 384 PROMPT pointer (R00). : 453 BR wakes for tis 
37 G10 @ 385 CF 12 434 ARCL 2? | array. For 
33 958 aad 386 ACA 435 ACA SINGLE OD, the 
wULG lerpenwes | 2 Gn Hay be vente by tha 
46 - between 900° and 388 PRBUF 437 ADY pedo = 
¥l .482 950°F. 389 ASTO IND 68 438 CLA " 
342 + 396 1 439 RTH 
343 CHS 391 ST+ 68 448 END. 


392 RTH 
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Part | V 


Special Applications 


Chapter 1 2 


Turbo-machinery Loading Analysis 
per NEMA SM-23 and API-617 


Program TI-59-12 


Introduction: 


T1-59-12 performs the individual nozzle loading anal- 
ysis and the transformed casing loading analysis for 
steam-driven, single, and multistage turbines, set out 
in National Electrical Machinery Association’s publica- 
tion SM-23. The program also performs the analysis 
for centrifugal compressors from API-617. TI-59-12 
performs the load transformations, calculates the al- 
lowables, and compares the applied loading with the 
allowables. 


Nomenclature: 


The user will input the coordinates of the individual 
nozzles, the applied loads, and the nominal diameter of 
the nozzle, using the following terms: 


D: Nozzle nominal diameter (in) 

Distance from the reference nozzle to the 
individual nozzle along the X-axis (ft) 
Same as above for the Y-axis (ft) 

Same as above for the Z-axis (ft) 

Force applied to the individual nozzle in the 
X-direction (Ib) 


FY: Same as above for the Y-direction (Ib) 
FZ: Same as above for the Z-direction (Ib) 
MX: Moment about the X-axis, applied to the in- 
dividual nozzle (ft-lb) 
MY: Moment about the Y-axis, applied to the in- 
dividual nozzle (ft-lb) 
MZ: Moment about the Z-axis, applied to the in- 
dividual nozzle (ft-lb) 
TMX: Transferred moment due to FY and FZ (ft- 
Ib) 
TMY: Transferred moment due to FX and FZ (ft- 
Ib) 


TMZ: Transferred moment due to FX and FY (ft- 
Ib) 


The following user-keys execute the program: 


Input of data 

Execute individual nozzle analysis (NEMA) 
Execute individual nozzle analysis (API-617) 
Execute casing analysis (NEMA and API-617) 
Initialize 


mOOm?> 


Method: 


TI-59-12 calculates the ““3F+M” value for the individ- 
ual nozzle loading, determines the allowable, and ex- 
presses the difference between the two values as a 
percentage of the allowable. The nozzle loads are 
then transformed to the reference nozzle. The “force- 
induced” moments are printed for the user’s informa- 
tion. (Force-induced moments are (TMX, TMY TMZ) mo- 
ments about the reference nozzle due to the forces 
applied to the individual nozzles.) The final execution 
of the program prints the accumulated forces and mo- 
ments at the reference nozzle along with their respec- 
tive allowables. As before, the relationship between 
applied loads and allowables is expressed as a percent- 
age of the allowable. The “2F+M” value is calculated 
and compared with its allowable. 


Limitations 


The program accepts an unlimited number of individ- 
ual nozzles. All input must be done in English units. Lf 
an error in input is made, there is an error recovery key, 
E’. See user instructions for its use. 
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Program Numbor TS9-12 


Stop 


DODIAW LS we po — 


ee 
ny—oO 


4 
1S 


User Instructions 


Instructions 


Roud in magnotic curds, 
Iniualize program (ossential), 
Input nominal diamoter of nozzle, 
Input nozzle X-coordinate, 
Input nozzlo Y-coordinate. 
Input nozelo Z-coordinate, 
Input FX, 

Input FY. 

Input FZ. 

Input MX. 

Input MY. 

Input MZ, 


*¢**]¢ there is any orror in input, uso the error 
recovery key and repeat Steps 3 through 12. 
Perform individual nozzle analysis 

NEMA 

API-617 


Repeat Stops 3 through 13 for all nozzles, including 
tho referonce nozzle. 
Perform the casing analysis. 


Title Terbo-machinory Loading Analysis 


Input 


SSSN2RRERY 


Keystroke 


PrPr>rr>rrr>r>rn 


aw py 
(5 
ies) 


Display 


REGI- 
STER 


DATA 


DSZ 


o = —ae 
js|a|s je|s|ele 3 =-|\s 


MIL 
ies) 
B) 3/§ 
x 
= 
fo) 
FS 
= 
o 


a 
M 
ie) 
< 
& 


13. |3F+M 

14 | LFX 

16 | 2FZ 

17. | ZMx 

18 | OMY 

19 | ZMZ 

20 ‘| Alpha labels 
21 =| FX 

22. =| FY 

23 «| FZ Allowables 
24 |MX 

25. |MY 

26 |MZ 

29 |2F+M 


S 


3\g 
F 


Data Register Contents 


REGI- 
STER 


DATA 


30 132727 


"ALL" 


3| 


32 


33 


4 


& 


on 
N 


A) 
7 


$ 
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Example 1 


—_ —TURBO-MACHINERY ANALYSIS 


xX NEMA LC API-617 
PAGE 1 


Nominal diameter 
X-coordinate 


Pie netet 
Y-coordinate -4.9 325 


lan i a 


Z-coordinate Ae 
X-nozzle force 
Y-nozzle force 
Z-nozzle force 
X-nozzle moment 
Y-nozzle moment 
Z-nozzle moment 


Applied 3F+M 
Allowable 3F-+M 
% applied/allowable 


X-induced moment 
Y-induced moment 
Z-induced moment 


Nominal diameter 
X-coordinate 
Y-coordinate 
Z-coordinate 
X-nozzle force 
Y-nozzle force 
Z-nozzle force 
X-nozzle moment 
Y-nozzle moment 
Z-nozzle moment 


\ 


Applied 3F+M 
Allowable 3F+M 
% applied/allowable 


X-induced moment 
Y-induced moment 
Z-induced moment 


Example 1 


TURBO-MACHINERY ANALYsjg 
XX NEMA CO Aptet7 
PAGE 2 


1 

so un 

Mow 

AND 
. 


Summed X-Forces at the reference nozzle 
Allowable FX 
% applied/allowable 


Summed Y-forces at the reference nozzle 
Allowable FY 
% applied/allowable 


ah 
2g 
a4 
23 


0 
4 
e) 


ona 
5 


Summed Z-forces at the reference nozzle 
Allowable FZ 
% applied/allowable 


Summed X-moments at the reference nozzle 
Allowable MX 
% applied/allowable 


Summed Y-moments at the reference nozzle 
Allowable MY 
% applied/allowable 


Summed Z-moments at the reference nozzle 
Allowable MZ 
% applied/allowable 


Applied 2F+M from the summed values listed above 
Allowable 2F+M 
% applied/allowable 


Nozzle 1 


FX =0 MX =: —2938 AX = 0 
FY = 1697 MY = 0 AY =0 
FZ = —815 MZ=0 AZ =0 
De = (36 + 16)/3 = 17.333 ; Allowable = 500(17.333) = 8667 


3V (0)? + (1697)? + (815)? + = (2938)? + (0) + ()? = 8586 
8586/8667 = 99% 


NO MOMENTS TRANSFERRED 


Nozzle 2 

FX = -—10 MX = 129 AX = 3.75 

FY = -43 MY = —1517 AY = —1.4583 

FZ = —22 MZ= 111 AZ = —4.2188 

De = 8 t Allowable = 500(8) = 4000 


3V (10)? + (43)? + (22)? + V (129)? + (1517)? + (111)? = 1674 
1674/4000 = 42% 


TMX = (—22)(—1.4583) — (—43)(—4.2188) = —149 ft-lb 


TMY = (—10)(—4.2188) — (—22)(3.75) = 125 ft-lb 

TMZ = (—43)(3.75) — (—10)(—1.4583) = —176 ft-lb 

Nozzle 3 

FX = —588 MX = 946 AX = 2.0833 

FY = 650 MY = 2737 AY = —4.333 

FZ = —202 MZ = —293 AZ = —2.5 

De = (10 + 16)/3 = 8.667 : Allowable = 500(8.667) = 4333 


3°V (588)? + (650)2 + (202) + V (946)? + (2737)? + (293) = 5609 
5609/4333 = 129% 


TMX = (—202)(—4.3333) — (650)(—2.5) = 2500 ft-lb 
TMY = (—588)(—2.5) — (—202)(2.0833) = 1891 ft-Ib 
TMZ = (650)(2.0833) — (—588)(—4.3333) = —1194 ft-lb 


Cesely Analysis 


Dx = (V(36)? +(8)? + (10)? + 18)/3 = 18,737 
FX © 0 + (—10) + (—588) = —598 


Altowable = 50Dc = 50(18.737) = 937 
598/937 = 64% 


FY = (1697) + (—43) + (650) = 2304 
Allowable = 125Dc = 125(18.737) = 2342 
2304/2342 = 98% 


FZ = (-815) + (—22) + (—202) = —1039 
Allowable = 100Dc = 100(18.737) = 1874 
1039/1874 = 55% 


MX = (—2938) + 0 + (129) + (—149) + (946) + (2500) = 488 
Allowable = 250Dc = 250(18.737) = 4684 
488/4684 = 10% 


MY = 0 + 0 + (—1517) + (125) + (2737) + (1891) = 3236 
Allowable = 125Dc = 125(18.737) = 2342 

3236/2342 = 138% 
MZ = 0+ 0 + (111) + (—176) + (—293) + (—1194) = —1552 


Allowable = 125Dc = 125(18.737) = 2342 
1552/2342 = 66% 


2V (598)? + (2304)? + (1039)? + ~=— (488)? + (3236) + (1552) 


= 8816 


Allowable = 250Dc = 250(18.737) = 4684 
8816/4684 = 188% 
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Laaiplie 2 


TURBO-MACHINERY ANALYSIS 
LJ NEMA & API-617 
PAGE 1 


Nominal diameter 
X-coordinate 
Y-coordinate 
Z-coordinate 
X-nozzle force 
Y-nozzle force 
Z-nozzle force 
X-nozzle moment 
Y-nozzle moment 
Z-nozzle moment 


Th 
Oe wo 
m 


(a 


Wooo 
A mJ 


(a 


i 


Applied 3F+M 
Allowable 3F+M 
% applied/allowable 


X-induced moment 
Y-induced moment 
Z-induced moment 


Nominal diameter 
X-coordinate 
Y-coordinate 
Z-coordinate 
X-nozzle force 
Y-nozzle force 
Z-nozzle force 
X-nozzle moment 
Y-nozzle moment 
Z-nozzle moment 


i 


l 
fer 


n 


moo mo 


mo moo" 


toh Beta 


| 


Thy eee 


i A 
n 


a 


i 
_ 
me | 


foe mad 


Applied 3F+M 
Allowable 3F+M 
% applied/allowable’ 


X-induced moment 
Y-induced moment 
Z-induced moment 
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Example 2 


TURBO-MACHINERY ANALYSIS 


(J NEMA & API-617 
PAGE 2 


Summed X-Forces at the reference nozzle 
Allowable FX 
% applied/allowable 


a it 
NU 
202.0 
cea md 


Summed Y-forces at the reference nozzle 
Allowable FY 
% applied/allowable 


7 
ba) 


-1029,. Summed Z-forces at the reference nozzle 
3 4 6 Allowable FZ 
OS ee % applied/allowable 


Summed X-moments at the reference nozzle 
Allowable MX 
% applied/allowable 


Summed Y-moments at the reference nozzle 
Allowable MY 
% applied/allowable 


Summed Z-moments at the reference nozzle 
“Allowable MZ 
% applied/allowable 


Applied 2F+M from the summed values listed above 
Allowable 2F+M 
% applied/allowable 
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Sample Problem 


Program: TH. 


VIEW 
Key 
Step Input Stroke Display Printer Comments 
1 E 0. Initialize program. 
Stores alpha labels in RO1 through 
R10. 
2 36 A 36. 36. D | Stores D in ROI. 
Prints data. 
3 0 A 0. 0 AX | Stores X in RO2. 
Prints data. 
4 0 A 0. 0. AY | Stores Y in RO3. 
Prints data. 
5 0 A 0. 0. AZ | Stores Z in R04, 
Prints data. 
6 0 A 0. 0. FX | Stores FX in ROS. 
Prints data. 
7 1697 A 1697, 1697 FY | Stores FY in R06. 
Prints data. 
8 -815 A -815. -815, FZ | Stores FZ in RO7. 
Prints data. 
9 -2938 A -2938. -2938. MX Stores MX in RO8. 
Prints data. 
10 0 A 0. 0. MY Stores MY in RO9. 
Prints data. 
11 0 A 0. 0. MZ Stores MZ in R10. 
Prints data. 
12 B 0. 8586. 3F+M | Calculates De for the input value 
8667. ALL | of D. From De, the allowable 
99. % | for 3F+M is calculated and stored 
0. TMX | in R11. Calculates 3F+M and 
0. TMY | stores itin R13. Prints the 3F+M 
0. TMZ | value, the allowable and the percent - 
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Step 


Input 


10 
2.0833 
-4,3333 
-2.5 
-588 
650 
-202 
946 
2737 
-293 


Key 
Stroke 


Wr rr rrrr rrr 


Wr rrr rrrrrr 


Display 
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Printer 


SSRaUnRERS A 


w 
iz) 
< 

Ss 


RBB vf 


Comments 


age of allowable. Then the program 
transfers all the applied forces and 
moments to the reference nozzle 
registers, R14 through R19. The 
moments that are transferred to the 
reference nozzle because of the 
applied forces acting through the 
coordinate distances are calculated, 
printed, and summed into the refer - 
ence nozzle registers, R17 through 
R19, The program then resets the 
alpha codes and stops. 


Exactly the same routine as in Steps 
2 through 12, 


Exactly the same routine as in Steps 
2 through 12, 
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afi we af afW wh abs 


2F4+M 


se 


Comments 


Calculates and stores the casing 
allowables using a calculated vale 
of De. The Allowables are stored 
in R21 through R26. 

The accumulated forces 2nd momens 
at the reference nozzle are primtiad 
along with the respective allowables 
and the percentage of the allowabl. 
Finally, the 2F+M value is cal- 
culated and stored in R29. The 
2F+M value is then printed alocg 
with its allowable, and the percent- 
age of the allowable. 


Coding Form 


Print routine for 


percent difference. 


1a 


te o6 
43 RCL 
30 620 
69 OP 
is] 

? + 
28 28 
69 OP 
a6 06 
ge 6 
gi 4 
69 OF 
O4 4 
f3 RCS 
2? 27 
a + 
¢ Ce 
28 2g 
65 ox 
OL 4 
oo 4 
oo og 
350s 
50 

69 


applied values, the 
allowables, and the 


Individual nozzle 
routine. 


Program Number Lise ka Title _Turbo-machinery Loading Analysis 
Loc Code Key Comments |Loc Code Key Comments {Loc Code Comments 
oon ig E*  |Initialize. Ged 6 [igo ii 
001 76 LBL O61 izi 43 
oo2 1 122 Ot 
Q03 4 123 33 
O04 31 24 44 SUN 
aus Fé i 125 82 12 
bos i Input routine. oo Fe eee 
qoF 69 27 05 O05 
20 126 33 4 
83 izd 35 + 
ao 30 43 RCL 
63 21 06 66 
a4 132 33 42 
z Print routine for 32° 85 + | Calculates 3F + M. 
transferred She : 
moments. peed 
136 
137 
API-617 factor. 136 
139 


tN 

Determines De. |: 

FIS 

oo 06 6 og 
igi 54 3 + 
ioz 55 = = 
i103 03 3 2 
104 95 = = 
105 76 LBL i 
106 24 CE 3 
107 45 Calculates 3F + M a 
108 05 5 | allowable. sTd 
a9 of OD 2a 
io oo oo 1 
11 22 INV 3 
112 97 IFF Td 
118 O1 O1 ai 
114 25 CLR 1 
115° 16 At | Adjusts for i 
116 76 LBL | APL6I7. s1d 
17 25 CLR i. 
ice ie sto 


Prints 3F + M and 
allowable using 
print routine D’. 


loc Code Key Comments Code Key Comments Loc Code Key Comments 
i130. 600) 00 95 = |Uses print 300) 52 3 

18 13 T° 44 SUl1 | routine B’. 7% LEL 

12 43 RCL 18 18 LH 

163 05 O05 17 B! INV 

184 44 SUN 43 REL LFF | Adjust for API-617 
85 #14 «14 Qs 06 OL 

186 3 RCL 65 x LOG 

187 06 06 7 43 ROL AT 

188 44 SUM S Q2 2 {Calculates MZ due LBL 

iss.1s 615 75 = {to nozzle forces. ¢ LOG 

190 $3 RCL | Transfers 43 RCL 310 5 = 

1291 OF OF | individual nozzle as 311 9 PRD 

182 44 SUN | loads to the : ile i 21 | Calculate casing 
193 16 16 | reference nozzle. ? PD | allowables. 
19448 2 22 

1385 as 9 PRD 

196 4 2 23 

197 «17 3 PRD 

198 «#443 4 24 

i939 a9 9 PRO 

20g 44 Casing loading 525 

201 18 analysis. 2 F 

202 43 

203 #10 Print summed 
204 44 forces at reference 
205 19 Store De nozzle and the 
206 OS | multipliers in allowables using 
evr OF allowable registers. print routine D’- 
208 O03 2 

209 90 er 

210 04 a = 

211 04 42 STO 1 

212 42 23°28 42 STO 

213 00 ol 1 #9 28 

214 43 az 2 Uz: = 

215 OF 5 5 ee 

216 65 * | Calculates MX due 42 STO a4 4 

217 43 RCL | to nozzle forces. 2 a4 

218 03 03 i 42 $TO 

219 75 - 253s 20 20 

220 42 RCL 32 STD 1a De - 
221 06 06 36 38 JS" 3 [Print summed 
222 65 X a2 2) ac GQ | moments at 
223 43 RCL os 5 Q4 4 | reference nozzle 
224 04 04 | Uses print a oo 4 4 | and allowables 
225° 95 = | routine B’, 42 STO $2 STO | using D’. 

226 44 SUM 24 ri 20 20 

227 17 «17 aoa 347 08 8 

2268 17 _ B* yaw 348 42 STO 

225 43 RCL ect 349 00 00 

220 05 O68 1: S50 19 n¢ 

eel. Bok 3 351 98 ADV 

222 43 RCL | Calculates MY due 7 352 43 REL 

a pa a4 to nozzle forces. 258 14 14 | Calculate 2F + M: 
ee a 4 23 LNN 334° 33 se 

2235 43 ROL a5 88 + 5 85 + 

236 07 O7 296 01 4 43 RCL 

237 65 x 2a> oo. Og Te 

acy = rs e97 O08 38 130615 

eeu 33 URE 298 54 > 33 NE 

nee a ae 299 55 - a5 + 
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Comments 


Loc 


Code 


Key 


Comments 


Comments Key 
362 39 Ke 422 02 2 
1b Sq) 423 7 7 
364 Gd Ty 444 02 2 
365 65 x 425 07 7 
366 02 2 426 42 $70 
367 85 + 427 30 30 
geo 559 ¢ 426 01 1 
369 43 REL 429 6 6 
370 #617 «17 470 42 $70 
971 3g Me 491 01 O1 
972 65+ 432 07 7 
373 43 ROL 433 05 3 
374 1g 18 424 04 4 
375 33 Ke 435 04 4 
376 #5 + 436 42 570 
377 49 PCL 437 02 02 
9 19 432 42 670 
33 439 02 03 
54 44 42 STO 
34 441 04 04 
9S 442 02 2 
42 443 1 1 
44 O4 4 
Print 2F+M, the | 445 04 4 


allowable and the | 446 42 STO 
percent difference | 447 05 05 
ung print routine} 44% 42 S10 


No 


3 a 45 

41 51 #97 07 

292 2 452 03 3 

298 5200 
453 00 9 

oa 45¢ 04 4 

2 ‘ ac 

346 455 04 4 

397 

398 

299 


IOWNPENMWYNAANN ION 


461 it 10 
462 01 1 

463 44 SUM 
464 039 03 
465 44 SUM 
466 06 06 


Set API-617 flag. 


Go to B, 


Set alpha labels for; 
input routine. 
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Program HP-41CV-12: Turbo-machinery Loading 
Analysis Per NEMA SM-23 and API-617 


Introduction: 


HP-41CV-12 performs the individual nozzle loading 
analysis and the transformed casing loading analysis 
for steam driven, single, and multistage turbines, set 
out in National Electrical Machinery Association pub- 
lication SM-23. The program also performs the analy- 
sis for centrifugal compressors from API-617. HP-41CV- 
12 performs the load transformations, calculates the al- 
lowables, and compares the applied loading with the 
allowables. 


Nomenclature: 


The user will input the coordinates of the individual 
nozzles, the applied loads, and the nominal diameter of 
the nozzle. The following terms will be used: 


ND: Nozzle nominal diameter (in) 
DLT X: Distance from the reference nozzle to the 
individual nozzle along the X-axis (ft) 
DLT Y: Same as above for the Y-axis (ft) 
DLT Z: Same as above for the Z-axis (ft) 


FX: Force applied to the individual nozzle in 
the X-direction (Ib) 

FY: Same as above for the Y-direction (Ib) 

FZ: Same as above for the Z-direction (Ib) 


MX: Moment about the X-axis, applied to the 
individual nozzle (ft-lb) 
MY: Moment about the Y-axis, applied to the 
individual nozzle (ft-lb) 
MZ: Moment about the Z-axis, applied to the 
individual nozzle (ft-lb) 
TMX: Transferred moment due to FY and FZ 
(ft-lb) 
TMY: Transferred moment due to FX and FZ 
(ft-lb) 


TMZ: Transferred moment due to FX and hy 
(ft-lb) 


The following user-keys execute the progtam: 


Error recovery key 

Execute individual nozzle analysis (NEMA) 
Execute individual nozzle analysis (APL617) 
Execute casing analysis (NEMA and API-417) 
Initialize program and begin input sequercz 
Used with E for data input 


Sm 90e> 


Method: 


HP-41CV-12 calculates the “3F+M” value for the indi- 
vidual nozzle loading, determines the allowable, and 
expresses the difference between the two values as a 
percentage of the allowable. The nozzle loads are 
then transformed to the reference nozzle. The “force- 
induced” moments are printed for the user's informa- 
tion. (Force-induced moments are moments about the 
reference nozzle due to the forces applied to the indi- 
vidual nozzles.) The final execution of the program 
prints the accumulated forces and momentsat the refer- 
ence nozzle along with their respective allowables. As 
before, the relationship between applied loads and al- 
lowables is expressed as a percentage of the allowable. 
The “2F+M” value is calculated and compared with its 
allowable. 


Limitations: 


The program accepts an unlimited number of individ- 
ual nozzles. All input must be done in English units. If 
an error in input is made, there is an error recovery key, 
A. See user instructions for its use. 
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KEYBOARD 


SYSTEM 


CARD 


ww yevaru Card Labeling 


RRR HP TL RRR 


) _on |} usen | | ecu |] avPHa] 
1_oN_|} USER | pene 


eege8e 
eeeee 
254888 
—l=!=1= 
Beee 


User Instructions 


Program Number _HP-4I1CV-12__ Title _Turbo-machinery Loading Analysis 


13 


Instructions 
Initialize program. 
Input ND. 
Input DLT X. 
Input DLT Y. 
Input DLT Z. 
Input FX. 
Input FY. 
Input FZ. 
Input MX. 
Input MY. 
Input MZ. 
Choose the analaysis, NEMA SM-23 or API-617. 


Repeat Steps 2 through 12 for all nozzles on the machine. 


After the program has acted on the last nozzle input: 
Perform casing analysis. 


If an error occurs in input, press A and repeat Steps 2 
through 12. The program will prompt again for ND. 
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Input 


ND 
DLT X 
DLT Y 
DLTZ 
FX 

FY 

FZ 
MX 
MY 
MZ 


Keystroke 
E 
R/S 
R/S 


Display 
ND= 
DLT X= 
DLT Y= 
DLT Z= 
PX= 
FY= 
FZ= 
MX= 
MY= 
MZ= 
B ORC 


DATA OUTPUT 


DATA OUTPUT 


Kegisters, Flags, Assignments 


program Number —HP4ICV-12 _ Title 


SSQRRLESRESB 
SSSRZERERZ 


DATA REGISTERS 
DSB 


wo 
es] 
+ 
x 
2 
& 
o 


ALLOWABLES 


ZZRRR 28 REE NG Fe 


IND/2F +M 


“ND-” 
“DLT X=” 
“DLT Y=” 
“DLT Z=” 
“RX” 
“py” 


Turbo-machinery Loading Analysis 


39 “MY=" 
40 ‘“MZ-” 
41 
42 
43 
44 
45 
46 
47 
48 
49° 
Init 
# S/C 
1 c 
Label Key 
AC 11(A) 
BB 12() 
CC 13(C) 
DD 14() 
NEMA 15 (&) 
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DATA REGISTERS 


FLAGS 


Set Indicates 


API-617 analysis 


ASSIGNMENTS 
Function 


Clear Indicates 


NEMA analysis 


Key 


ND= 36.088 
DLT X= 6.088 
DLT Y= 6.606 
DLT 2= @.066 
FR= @,008 
FY= 1,697,886 
F2=-815. 002 
MX =-2, 938, 088 
MY= 8.beE 
M2Z= @.808 


SF+H=8, 586. 
ALLOK=8. 667. 
=99.% 


TMK: TMY : TMS 


0.20.28. 


ND= 8.068 

DLT X= 3.758 
DLT VY=-1.452 
DLT 2=-4.219 


F M=-18.008 
FY =-43.002 
F2=-22, 688 
Mx= 129.968 
MY =-1,517, 866 
M2= 111.088 
SF+H=1,674. 
ALLOK=4, OBE. 
242.7 


TMS: TMY = TMZ 


-149. 125. :-176, 


ND= 16.006 
DLT x= 2,082 
DLT Y=-4.333 
DLT 2=-2.568 
F x =-58e. 002 


F'v= 658.008 
F2=-262. 868 
Mx= 946.002 
MY= 2,737,886 
M2Z=-293. 006 


SFHN=5, 689, 
ALLOW=4, 333. 
=129.% 


TMH: TMY > TMZ 
2,588, :1,891.:-1,194. 


Analysis according to NEMA SM33 


Fxe-598, 
ALLOK=937, 
264.4 


FY=2, 384, 
ALLOW=2, 342, 
298% 


F2=-1,039. 
ALLOW=1,874, 
55.4% 


HX=488, 
ALLOW=4, 684. 
=18.% 


MY=3, 236. 
ALLOW=2, 342. 
=138.% 


N2=-1,552. 
ALLOW=2, 342, 
=66.% 


OF +H=8, 816, 
ALLOW=4, 684, 
=188.% 


NEMA SM-23 


Vorzle 1 

FX =0 MX = —2938 AX =0 

FY = 1697 MY =0 AY =0 

FZ = —815 MZ =0 AZ =0 

De = (36 + 16)/3 = 17,333 : Allowable = 500(17.333) = 8667 


3V (0)? + (1697)? + (815) +  V/(2938)? + (0) + (0) = 8586 


8586/8667 = 99% 


NO MOMENTS TRANSFERRED 
Nozzle 2 
=-10 MX =- 129 AX = 3.75 
FY = -43 MY = —1517 AY = —1.4583 
FZ = —22 MZ= 111 AZ = —4.2188 
De = 8 i Allowable = 500(8) = 4000 


3V (10)? + (43)? + (22) = + = (129)? + (1517? + (111)? = 1674 


1674/4000 = 42% 


TMX = (—22)(—1.4583) — (—43)(—4.2188) = —149 ft-lb 


TMY = (—10)(—4.2188) — (—22)(3.75) = 125 ft-lb 

TMZ = (—43)(3.75) — (—10)(—1.4583) = —176 ft-lb 

Nozzle 3 

FX = —588 MX = 946 AX = 2.0833 

FY = 650 MY = 2737 AY = —4.333 

FZ = —202 MZ = —293 AZ = -2.5 

De = (10 + 16)/3 = 8.667 : Allowable = 500(8.667) = 4333 


3V (588)? + (650)? + (202)? + V(946)? + (2737)? + (293)? = 5609 


5609/4333 = 129% 


TMX = (-202)(—4.3333) — (650)(—2.5) = 2500 ft-lb 
TMY = (—588)(—2.5) — (—202)(2.0833) = 1891 ft-lb 
TMZ = (650)(2.0833) — (—588)(—4.3333) = —1194 ft-lb 
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{Casing Analysis 
De = (V (36)? +(8)? + (10)? + 18)/3 = 18.737 


FX = 0 + (—10) + (—588) = —598 
Allowable = 50Dc = 50(18.737) = 937 
598/937 = 64% 


FY = (1697) + (—43) + (650) = 2304 
Allowable = 125Dc = 125(18.737) = 2342 
2304/2342 = 98% / 


FZ = (—815) + (—22) + (—202) = —1039 
* Allowable = 100Dc = 100(18.737) = 1874 
1039/1874 = 55% 


MX = (—2938) + 0 + (129) + (—149) + (946) + (2500) = 488 
Allowable = 250Dc = 250(18.737) = 4684 
488/4684 = 10% 


MY = 0 + 0 + (—1517) + (125) + (2737) + (1891) = 3236 
Allowable = 125Dc = 125(18.737) = 2342 
3236/2342 = 138% 


MZ = 0 + 0 + (111) + (—176) + (—293) + (—1194) = —1552 
Allowable = 125Dc = 125(18.737) = 2342 
1552/2342 = 66% 


2V/ (698)? + (2304)? + (1039) + © V'(488)2 + (3236)? + (1552)? 
= 8816 


Allowable = 250Dc = 250(18.737) = 4684 
8816/4684 = 188% 
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ND= 36.008 
DLT X= 6.608 
DLT Y= 86,06¢ 
DLT Z= 6.688 
F X= 8.000 
FY= 1,697,866 
FZ=-815, 008 
MK=-2, 938, 086 
MY= 6.888 
MZ= 6.606 


3F4N=8, 586. 
ALLOW=16,832. 
294.4% 


TMX: TMY - THZ 
6. :6. 28. 


ND= 8.086 
DLT X= 3.756 
DLT Y=-1.458 
DLT 2=-4.219 
FR=-16. 066 

FY =-43, 680 
FZ2=-22. O6e 
MX= 129.008 
MY =-1,517. 688 
MZ= 111.606 


SF+H= 1,674. 
ALLON=7, 468. 


=23.% 


TMX: TMY =: TMZ 
7149, 125, :-176, 


ND= 10.026 
DLT X= 2.683 
DLT Y=-4.333 
DLT 2=-2.586 
F X=-588, 862 
FY= 65¢. 808 

F Z=-202. 088 
MX= 946.888 
MY= 2,737. 088 
MZ=-293. 086 


SF+H=5, 689. 
ALLOW=68, 017. 
=70.% 


TMX: TMY =: TMZ 
2,508. 21,891, :-1,194, 


Analysis according to API-617 


Fx=-598, 
ALLOW=1, 733, 
235% 


FY=2,364, 
ALLOK=4, 333, 


25004 


=-1,039, 
ALLOM=3, 466. 
234% 


Wx=482. 
ALLOK=8, 666. 
26,4 


NY=3, 236. 
ALLOW=4,233. 
275.4% 


K2=-1,552. 
ALLOW=4, 333. 
=36.% 


OF +HH=2, 816. 
ALLOW=8, 656. 
102.4% 


Program: 


HP-4ICV-12_ Tithe 


Sample Problem (Sketch if Desired) 


Sample Problem 


Turbo-machinery Loading Analysis 


ELEVATION VIEW 
Input Function Display Comments 
E ND= 
36 R/S DLT X= The program will analyze each set of loads as it is input. 
0.0 R/S DLT Y= The first analysis is the individual nozzle analysis that 
0.0 R/S DLT Z= determines the 3F+M value and the corresponding 
0.0 R/S FX= allowable. 
0 R/S = 
1697 R/S FZ= 
-815 R/S MX= 
-2938 R/S ‘= 
0 R/S ~MZ= 
0 R/S BORC By choosing key C the analyst has told the program to 
Cc calculate the allowables per API-617. If key B is 
3F+M=8586. chosen, the allowables will be those for NEMA SM-23. 
ALLOW= 16,033. 
=54.% 
TMX:TMY:TMZ 
0.:0.:0. 
TMX refers to the moment in the X-direction that is 
ND= transferred to the reference nozzle. The value of the 
8 R/S DLT X= moment is the result of the FY and FZ forces applied 
3.75 R/S DLT Y= through the Y and Z distances to the reference nozzle. 
-1.4583 R/S DLT Z= They are not the total transferred moment. 
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Input 


-4.2188 
-10 

43 

-22 

129 
-1517 
111 


10 
2.0833 
-4,3333 
-2.5 
-588 
650 
-202 
946 
2737 
+293 


Function 


ff 


Display 


FX= 
FY= 
FZ= 
MxX= 
MY= 
MZ= 
BORC 


3F4+M=1674, 
ALLOW=7,400. 
=23.% 


TMX: TMY:TMZ 
-149,:125.:176. 


3F+M=5609. 
ALLOW=8017. 
=70.% 


TMX:TMY:TMZ 
2,500.:1,891.: 
-1,194. 


ND= 


FX=-598. 
ALLOW=1,733. 
=35.% 


FY=2,304. 
ALLOW=4,333, 
=53.% 


FZ=-1,039, 
ALLOW=3,466, 
=30.% 


Comments 


This begins the casing analysis. 

Each accumulated force and moment is listed against its 
allowable. Finally, the 2F+M value is printed and 
compared with its allowable. 
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‘Input 


Function 


Display 


MX=488. 


ALLOW=8,666. 


=6.% 


MY-=3,326. 


ALLOW=4,333. 


=75.% 


MZ=1,522. 


ALLOW=4,333. 


=36.% 


2F1M=8,816. 


ALLOW=8,666. 


=102.% 
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Comments 


vevu ll 15 rorm 


fwgram Number HP-41CV-12 Title Turbo-machinery Loading Analysis - 
ge! Key Key Comments Step} Key Key Comments Step! Key Key Comments 
tine Entry Code Line Entry Code Line Entry Code 
OUOLBL *HENA’ | Initialize program. | 58 SF Ot 99 STD 28 
W CLRG SI+LBL "BB" Calculate 3F + M | 106 “3F+H=* 
CLA 52 Aly allowable 191 X60 D | 7 
44 CF Ot 53 8 (De)(500). 102 RCL 95 | Sum nozzle loads 
0 *HD=* 54 RCL OL 163 ST+ 14 into reference 
06 ASTO 31 55 ¥d1? 104 RCL 96 nozzle registers. 
Q? “DLT X=* 56 GIO A 105 $T+ 15 
88 ASTO 32 57 16 106 RCL 97 
9 “DLT y=" 58 + 107 ST+ 16 
18 ASTO 33 59 3 108 RCL 92 
“DLT 2=° 6a / 199 ST+ 17 
12 S10 4 6{4LBL A 110 RCL 89 
13 “FR=* 62 568 ALL ST+ 18 
14 ASTO 35 63 112 ROL 19 
15 *FY=* 64 FC? al 113 T+ 19 
; ASTO 36 65 G10 6 114 RCL 47 es mae - 
bl - transferre: 
" hi Ryd me bite PTC ALT EN. — sum into reference 
eee 67 116 + nozzle registers. 
19 “We 68¢LBL & 117 RCL 96 
4 AST 38 69 $10 11 118 ROL 84 
at “Hy=* 70 RCL 81 Calculate 3F + M.| 119 * 
22 ASTO 39 71 X42 129 - 
23 “H2=° 72 ST+ 12 121 ST+ 1? 
24 ASTO 46 73 RCL 85 122 $10 27 
25eLBL “ARs Set up input 74 Xt2 123 RCL 85 Calculate MY same 
26 CLA routine. 75 RCL 86 124 RCL 84 as above. 
2? 1.81 76 ¥t2° 125 + 
28 $1088 77 RCL 7 126 RCL 67 
29 31 78 Rt2 127 RCL 82 
3 STO 27 79 + 128 + 
3 FIR 3 8a + 129 - 
S2LBL “ABS Input routine. 81 SQRT 136 ST+ 18 
33 ARCL IND 27 82 3 131 $T0 28 
34 PROHPT 93 * 132 RCL 86 Calculate MZ same 
35 SF 12 84 RCL 88 133 RCL 42 as above. 
36 ACA 85 xt2 134 + 
37 CF 12 86 RCL 89 135 RCL 85 
38 ACY 97 ¥t2 136 RCL 83 
39 STO IND 48 98 RCL 1A 13? + 
4) PREUF 99 ¥42 138 - 
41 Cla i 4 139 ST# 19 
a1 a |_140 sto 29 
43 ST+ 27 92 SQRT 141 SF 12 Print transferred 
44 CLX 93 + 142 “THR:THY: | MX, MY, and MZ 
- (force-induced 
45 186 08 94 STO 13 143 PRA moments). 
46 GTO "AB 95 FIX @ Print 3F + M, 4 CLA 
47 “BOR C* Prompt for NEMA} 96 13 allowable and % \4 
48 PROKPT or API-617. 97 STO 27 difference. 145 CF 12 
494LBL *CC* Set API-617 flag. 98 11 MG 
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‘[nput 


Function 


Display 


MX=488. 


ALLOW=8,666. 


=6.% 


MY=3,326, 
ALLOW=4,333, 
=75.% 


MZ=1,522. 
ALLOW=4,333. 
=36.% 


2F+M=8,816. 
ALLOW=8,666. 
=102.% 


366 


Comments 


Coding 


Form 


Program Number HPAICV-I2 _— Tit{e _Turbo-machinery Loading Analysis 
Step Key Key Comments Step) Key K Comments | Ste 
Line Entry Code Line Entry Code nti Pad Pa | os 
BL*LBL “NEMA* | Initialize program, | 50 SF O! 99 STD 28 | 
82 CLRG SI0LBL “68° | Calculate 3F + M | 100 °3F+H=° 
93 CLA 52 Aby allowable 101 XEQ D 
64 CF 8! 53 8 (De)(500). 182 RCL 5 Sum nozzle loads 
85 “ND=* 54 RCL 61 193 ST+ {4 into reference 
66 ASTO 31 55 XY? 184 RCL 06 nozzle registers, 
8? “DLT ¥=° 56 GTO A 105 ST+ 15 
48 ASTO 32 57 16 186 RCL 97 
@9 “DLT Y=" 53 + | 197 ST+ 16 
18 ASTO 33 593 198 RCL 98 
{{ “DLT 2=" 68 / 189 ST+ 17 
12 ASTO 34 6L9LBL A 118 RCL 99 
13 “FRE* 62 508 LLL ST# 18 
14 ASTO 35 63 + 112 REL 18 
15 “FY=* 64 FC? at M3 ST 19 | 
16 ASTO 36 65 GTO B 114 REL 67 Calculate 
17 “F2=" 66 1.85 Adjust for API-617.| 115 ROL #2 phe is n 
18 ASTO 37 67 + 116 4 eee ee 
19 *Hy=* 580LBL 8 Ta | | Oe. 
28 ASTO 38 69 STO If 118 RCL 44 
at “Y= 76 RCL At Calculate 3F + M.| 119 * 
22 ASTO 39 71 &t2 126 - 
23 “H2=" 72 ST+ 12 121 ST+ 17 
24 ASTO 46 73 RCL 85 122 $10 27 
25¢LBL ‘AR’ | Set up input 74 xt2 123 RCL 85 Calculate MY same 
26 CLA routine. 75 RCL 46 124 RCL 94 | as above, 
27 1.81 76 Xt2 125 + 
28 STO -46 77 RCL 87 126 RCL 67 
29 31 78 Xt2 127 REL 82 
36 STO 27 79 + 128 + 
31 FIX 3 9a + 129 - 
32¢LBL *AB* | Input routine. 81 SORT 138 ST+ 12 
33 ARCL IND 27 923 131 ST0 28 
34 PROMPT 83 ¢ 132 REL 86 Calculate MZ same 
35 SF 12 $4 RCL 48 133 RCL 42 as above. 
36 ACA 85 Rt? 134 + 
3? CF 12 86 RCL 89 135 RCL 95 
38 ACY 87 ¥t2 136 RCL 83 
39 STO IND 48 98 RCL {9 1i7 + 
40 PRBUF 89 Xt2 132 - 
41 CLA 99 + 139 ST+ 19 
42 1 3 + 148 STO 29 
43 ST+ 27 92 SORT {41 SF 12 Print transferred. 
44 CLY 93 + 142 “THK:THY: | MX, MY, and MZ 
45 ISG 68 94 S10 13 f sana aa 
46 GTO “AB 95 FIX @ Print 3F + M es ; 
47 “B OR C* Prompt for NEMA| 96 13 allowable and % | 144 CLA 
48 PROHPT or API-617. 97 STO 27 difference. 145 CF 12 
494LBL “CC Set API-617 flag. | 98 11 146 ARCL 27 
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Step) Key Key Comments Step) Key Key Comments Step!) Key Key Coterrures 
Line Entry Code | Une Entry Code Line Entry Code 

IN7 “EY 19G¢LDL 18 245 “ALLOW=* 

148 ARCL 28 197 CLA 246 ARCL IHD 28 

149 “F 196 ARCL IND 29 247 PRA 

158 ARCL 29 199 XE@ D 248 CLA 

151 PRA 206 1 249 RCL IND 27 

152 CLA 261 ST 27 258 RCL IND 28 

153 ADY 202 ST+ 28 251 7 

154 ADV 283 ST 29 252 100 

155 GTO “ARY 284 DSE 68 253 4% 

T56*LBL “DD | pur Dd multipliers | 205 GTO 10 254 ABS 

157 50 in allowablex 266 ADV Calculate 2F + M.} 295 “=* 

158 S10 21 registers (casing 267 RCL 14 256 ARCL ¥X 

159 108 analysts). 288 ¥t2 257 “HY 

166 STO 23 289 RCL 15 258 PRA 

161 125 216 Xt2 259 ADV 

162 STO 22 241 RCL 16 260 RTH 

163 STO 25 212 Xt2 261¢LBL “AC™ Error recovery 

164 STO 26 23 + 262 PRBUF routine. 

165 258 214 ¢ 263 GTO “AA 
166 STO 24 215 SORT 264 END 

16? 9 Caleulate De. 216 2 

168 ROL 12 217 * 

169 SQRT 218 RCL 17 

128 X=? 219 Xt2 

171 GTO ¢ 228 RCL 18 

172 18 221 Xt2 

173 + 222 RCL 19 

174 3 223 ¥t2 

175 7 224 + 

S76+LBL C 225 + 

17? FC? Q1 226 SORT 

178 GTO E 227 + 

179 L385 228 STO 29 

1807 Adjust for API-617.} 223 29 Print 2F + M, 

1S14LBL E Calculate reference] 238 S10 27 allowable and % 

182 STa 2] nozzle allowables. | 231 24 difference. 

183 ST# 22 232 STD 28 

184 STa 23 233 °2F HME" 

195 STe 24 234 XEO D 

186 STe 25 235 ADY Stop. 

187 ST# 26 236 AW 

188 6 Print applied forces 237 CLR 

189 STO 68 and moments, 238 FIX 3 

198 35 a wanes ae 239 STOP | 

191 STO 29 baleen 24BeLBL D Print subroutine. 

192 14 ni aad 241 FIX 8 

193 STO 27 242 ARCL IND 27 

194 2] 243 PRA 

195 S10 28 244 CLA 
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Buried Concrete Thrust Block 
Sizing in Cohesionless Soils 


Program TI-59-13 


Introduction: 


TI-59-13 is intended to assist the user in sizing buried 
thrust blocks primarily for buried piping anchors. The 
program will calculate the active earth pressure, passive 
earth pressure, and the earth pressure at rest, both 
above and below the water table, if any exists. TI-59-13 
also determines the friction resistance of the block along 
the sides of the block and on the bottom. The analysis is 
accurate for cohesionless soils only and does not apply 
any factors of safety to the soil pressures calculated. 


Nomenclature 
Ten items must be supplied to the program by the user: 


HIGH: Thrust block height (see Figure 13.1) (ft) 
WIDE: Thrust block width (see Figure 13.1) (ft) 
DEEP: Thrust block depth (see Figure 13.1) (ft) 
*EI: Inverted elevation of the bottom of the 
block (ft) 
*WTBL: Water table depth (ft) 
SAT: Density of saturated soil (Ibs/ft*) 
USAT: Density of unsaturated soil (Ibs/ft*) 
FR D: Friction coefficient of dry soil 
FR W: Friction coefficient of wet soil 
ANGL: Internal angle of friction of soil (degrees) 


The program calculates the following soil data from 
the input data: 


Ka: Coefficient of active soil pressure 
Ko: Coefficient of earth pressure at rest 
Kp: Coefficient of passive earth pressure 


Using the input data and the above calculated data, the 
program produces the following output: 


FF S: Friction force on the sides of the black (Ibs) 
FA: Active soil pressure applied to the block 
(Ibs) 


FP: Passive soil pressure applied to the block 
(Ibs) 
FF B: Friction force on the bottom of the block 
(Ibs) 
FIOT: Total resisting force of the block (Ibs) 


Method: 


The calculations performed are classical civil engyneer 
ing soil equations taken from Introductory Sol Mecham 
ics and Foundations: Geotechnical Engineering, 4th 
ed., by George F, Sowers. The program calculates all 
the soil coefficients and then determines what area of 
the block is under the water table, 1f thete is any. For the 
friction force on the sides of the block, the earth pres- 
sure at rest is calculated at the bottom of the block, at the 
water table (if applicable), and at the top of the bloek. 
These forces outline two trapezoidal force distnbutions. 
From these distributions, the program determimes the 
net force per unit length along the sides of the depth of 
the block, both above and below the water table. From 
the input value of DEEP, the net force on the sides of the 
block is determimed. The force below the water table js 
then multiplied by the friction coefficient for wet sail, 
and the force above the water table is-multiplied by the 
friction coefficient for dry soil. The sum of these two 
values is the total friction resistance on one side of the 
block. The value FF S is the friction resistance for both. 
sides. 

Similar force distributions are set up for the active soil 
pressure and the passive soil pressure. These forces 
represent the force of the soil acting againsta wall that is 
moving away from the soil (active pressure) and the 
force of the soil acting on a wall that is moving. towart 
the soil (passive pressure). 

The final calculation performed by the program: is. 


*These values.are measured positively from the ground 
level downward. 
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determming the friction on the bottom of the block. 
Using a density of concrete of 150 pounds per cubic 
foot, the total weight of the block is calculated. Then the 
weight of the water displaced by the intrusion of the 
block into the water table is calculated and subtracted 
from the weight of the block. This final weight is then 
multiplied by the appropriate soil friction factor. Thus, 
the total resisting force is a sum of these parts. As the 
active soil pressure acts in line with the applied thrust 
force, its value is subtracted from the total. The program 
does not apply any safety factors to any of the values 
calculated, nor does it consider the friction resistance of 
the soil on the top of the block. 
The following equations are used: 


Ko = 1 — sin (ANGL) 
Ka = tan* (45 — ANGL/2) 


Kp = tan? (45 + ANGL/2) 


Earth pressure at rest: 

Po = (v1 - Hi + (y2 — yw) + H2(Ko) + yw - Hy 
Active earth pressure: 

Pa = (yi - Hi + (y2 — yw) + H2)(Ka) + yw - He 
Passive earth pressure: 

Pp = (yi > Hi + (y2 — yw) + Ha)(Kp) + yw: He 
See Figure 13.1 for the definitions of H, and Hp. 


Limitations: 


TI-59-13 does not apply any safety factors to the calcu- 


lated values. The program will not correctly analyze a 
situation in which the top of the block is below the water 
table. The equations are to be used for cohesionless soils 
only; sand, gravel and sand, or sandy soils. 
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Figure 1 3 
‘1 Explanation of T 
erms 


Friction on bottom 


Surface elevanon 


(Thrust directed into 


- 


Earth pressure at rest 


Program Number _TI-59-13 


a) 
ay 
ac) 


RS a ia NC eT SN A ODD 


User Instructions 


Title _Buried Concrete Thrust Block Sizing 


Instructions 


Read magnetic cards. 

Initialize program. 

Input height of block. 

Input width of block. 

Input depth of block. 

Input inverted elevation. 

Inpat depth of water table. 

Input saturated soil density. 

Input unsaturated soil density. 

Input friction coefficient of dry soil 
Input friction coefficient of wet soil. 
Input internal angle of friction of soil. 
Execute. 
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Input 


HIGH 
WIDE 
DEEP 
EI 
WIBL 
SAT 
USAT 
FRD 
FR W 
ANGL 


Keystroke 
CLR 


DP>>rrrrr>>r>>m 


Data Register Contents 


18 
19 | F @ bottom 
20 | F @water table 
21 | F@top 
#/ft below water table 


#/ft above water table 


REGI- , REGI- 
STER DATA STER DATA 
00 2324023 
ot | HIGH 43241617 
02 WIDE 16171733 
03. | DEEP 3 | 1724 
| os | 34 | 43371427 
WIBL 35 | 361337 
| 06 | SAT 36 | 41361337 
USAT 37 | 21350016 
| os | RD 38 | 21350043 
| 09 | FR W 39 13312227 
| 10 | ANGL 40 | 21210036 
rT = 
g | 2133 
HO 43 | 21210018 
HI 44 | 21373237 
15 | #2 5 
pw [km Cid; Cw 
pv fe —(ts—“C:éi—sr 
pie Cid 
ed 
| 20 | 
| a 
| 2 | 
24 
9 


L 
a 


N 
N 


ale aie ese 


A 


ie 
N7 
el} 
wc 
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Sample Analyses 


Bottom of thrust at water table line. 


Thrust block above water table. 


-12196. 
ak 7é. 


1750268, 


Thrust block partially submerged into water 
table. Top of thrust block at water table Sine, 


LA 
25. 


\ | 
Ne 
NEDO 
eNIND 
TONE A 
Vane 
ORO 


_ 
pee] 
uy 
a 
R 
B 
te 
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Example Calculation 


ANCHOR BLOCK DESIGN (LINES BLZIED tN 
COHESIONIESS SOILS) 


Considerationy, 
Thrust force 
Block. dimension, 
Water table, if any 
Earth presaure at res! 
Pasnive earth presure 
Active earth pressure 
Friction force acting on bottorn face 
Friction force acting on sides 


Earth pressure at rest: 


Po = fy Hy + (12 — yw)HL|(1 ~ sin 6) + qt, 
Passive earth pressure: 

Pp = [wH + G2 - vias + +) + ywHe 
Active Earth Pressure 

Pa = [yiH, + (v2 — yw)HyJtan? (s = 2 + ywH, 
Definitions: 

+ = Unsaturated soil density 

2 = Saturated soil density 

Z_ = Depth of point where pressure is wanted 
Zw = Depth of water table 

yw = Density of water 

¢ = Angle of internal friction 

H, = Depth of unsaturated soil 

H, = Depth of saturated soil = (Z — Zw) 
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Sample Problem: 
Design a Thrust Block That Will Restrain a Force of 
1,500,000 Ibs, 


GIVEN: 


= (Unsaturated weight of soil) = 100 lb/ft? 
= (Saturated weight of soil) = 130 Ib/ft® 
= (Angle of internal friction) = 35° (sand) 


ti = (Friction coefficient of Unsaturated soil) = 0.3 
He = (Friction coefficient of saturated soil) = 0.2 
Solution: 


Assume the dimensions of the sides of the block and 
solve for the total restraining force. If the restraining 
force is greater than the applied thrust, then the block is 
overdesigned and could be sized down. If, on the other 
hand, the restraining force is less than the thrust applied, 
then increase one dimension of the block until the two 
forces are more or less equal. 
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Note that if the size of the block is insufficient to restrain 
the thrust, it is more advantageous to increase the size of 
the block in the Z-direction, unless the Y-dimension is 
increased while the top of the block remains at the same 
underground elevation. 


For the sample problem, let us assume that for the block, 
Y = 20’, X = 10’, and Z = 15’. 


Now, looking at the X-Y plane the pressure distribution 
diagram would be as follows: 


OO@O™NRIS RYO Sid 


Thrust line 


The passive, active, the rest pressures must be found at 
the top and bottom of the block and at the water table 
level. 


Pressure at Rest (Pr): 
(Bottom) Pr = [y:H; + (y2 — yw)H2(1 — sin $) + ywH) 
= [100(15) + (130 — 62.4) 10 (1 — sin 35°) 
+ 62.4 (10) 
= 1551.90 lb/ft? 
Note that Hz becomes zero at and above the water table: ° 
(Water Table) Pr = [y,H;](1 — sin 4) 
= [100(15)](1 — sin 35) 
= 639.64 lb/ft? 
(Top) Pr = (100 (5)) (1 — sin 35) 
= 213.21 lb/ft? 
Similarly for passive pressure (Pp): 
(Bottom) Pp = 8,653.81 Ib/ft* 
(Water Table) Pp = 5,535.26 Ib/ft? 
(Top) Pp = 1,845.09 lb/ft? 
Active earth pressure (Pa): 
(Bottom) Pa = 1,213.67 lb/ft? 
(Water Table) Pa = 406.49 lb/ft? 


(Top) Pa= 135.50 lb/ft2 
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Now calculate resisting friction force on the sides. 


Water table 


Z 


PRESSURE DISTRIBUTION DIAGRAM 


The areas under the triangles will provide the resulting 
force per linear foot acting on the sides. 


(639.64 — 213.21) 10 


v4 
= 4,264.25 Ib/ft 


Area above water table = + 213.21(10). 


Multiplying this times the block dimension parallel to 
the thrust or the X-dimension, we obtain the total force 
acting on one side above the water table: 


FR (force due to earth pressure atrest) = 4,264.25(10) = 
42,642.50 Ibs 

Ff (friction force) = 0.3 (42,642.5) = 12,792.75 lbs 

Ff (two sides) = 12,792.75(2) = 25,585.50 Ibs 


Similarly for the component below the water table: 


_ (1,551.90 — 639.64)10 


2 
= 10,957.70 lb/ft 


Area +.639,64(10) 


Again, total force acting on one side below the water 
table: 


Fr = 10,957.70(10) = 109,577 Ibs 


Ff = 0.2 (109,577) = 21,915.4 lbs 
Ff (two sides) = 21,915.4(2) = 43,830.80 lbs 


Following a similar procedure, the active and passive 
components of the resisting force are found. 
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1,213.67 psf 


Active pressure: 


Water table 


Passive pressure 


5553.81 pst 


PRESSURE DISTRIBUTION DIAGRAM 


Total weight of concrete = 150(3,000) = 450,000 Ibs 


Area = (1205.67 ~ $06.49)10 + 406.49(10) To this we must subtract the displaced weight of water 
2 to account for the buoyancy effect on the portion of the 
4. (406.49 — 135.5)10 block below the water table. 
2 
+ 135.5(10), w = 62.4 Ib/fte 
= 10,810.75 lb/ft Volume under saturated soil = 10 x 10 x 15 = 
FA = 10,810.75(15) = 162,161.25 Ibs 1,500 fe 


Passive pressure: 


(8,653.81 — 5,535.26)10 


Weight of water displaced = 62.4(1,500) = 93,600 Ibs 
Total weight = 450,000 — 93,600 = 356,400 Ibs 
FF = 356,400(0.2) = 71,280 Ibs 


Area 5 + 5,535.26(10) 
Note that the friction force on the top face is ignored. 
4. B S525 ~ Lene 166.0710 Total resisting force: 
Z 
+ 1,845.09(10) FTOT = (FF S) + (FP) — (FA) + (FF B) 
= 107,847.10 lb/ft = (25,586 + 43,831) + (1,617,707) — (162,161) 
FP = 107,847.10(15) = 1,617,706.5 lbs + (71,280) 


= 1,596,243 Ibs 


Finally, we must account for the friction force acting on Total Force = 1,596,243 > 1,500,000 = Thrust 


the bottom face of the block. 


Concrete = 150 lb/ft? 


Thrust block is adequate 


Note that the passive force is the highest component of 


Volume of block = 10 x 20 x 15 = 3,000 ff? the total resisting force. 
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TI-59-13 
Program: 


Sample Problem 


EI = 25" 

WIBL = 15 
SAT = 130 Ibs/ft3 
UNSAT = 100 Ibs/ft 


FRD =03 
FR W = 0.2 
ANGL = 35° 
Key 
Step Input Stroke Display Printer Comments 
1 E 0 Initialize program. 
2 20 A 20. 20. HIGH| Store HIGH in RO1; print. 
3 15 A 15. 15. WIDE] Store WIDE in R02; print. 
4 10 A 10. 10. DEEP) Store DEEP in R03; print. 
5 25 A 25. 25. EI Store EI in RO4; print. 
6 15 A 15. 15. WTBL) Store WIBL in ROS; print. 
7 130 A 130. 130. SAT| Store SAT in RO6; print. 
8 100 A 100. 100. USAT| Store USAT in RO7; print. 
9 Ss A 0.3 0.3 FR D| Store FR D in RO8; print. 
10 2 A 0.2 0.2 FR W) Store FR W in RO9; print. 
ll 35 A 35. 35. ANGL| Store ANGL in R10; print. 
2 B 
: 69416. FF S The program determines the values 
-162160. FA of Hy, H», and Hp. Then the 
1617706. FP various forces (active, passive, earth 
71280. FF B pressure at rest) are determined at the 
bottom of the block, at the water 
1596242. FTOT| table, and at the top of the block. 
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The program sets up the trapezoidal 
pressure distributions and finds the 
total force applied to the block, 
above and below the water line. For 
the friction on the sides, the earth 
pressure at rest is multiplied by the 
friction factors, wet and dry depend - 
ing on which side of the water table, 
and derives the total frictional resis - 
tance on the sides of the block. The 
friction on the bottom of the block 
is found by calculating the volume 
of the block and multiplying it by 


Step 


Input 


Key 
Stroke 


Display 
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Printer 


Comments 


150 Ibs/f (for concrete). This 
weight is decreased by the volume of 
water displaced by the intrusion of 
the block into the water table. The 
residual weight is multiplied by the 
correct friction factor, and the result 
is the frictional resistance on the 
bottom of the block. 


The final results and the total 
resisting force of the block are 
printed. This value is the sum of the 
above values, where all the factors 
are added except the active soil 
pressure, which is subtracted. 


TI-59-13 


Coding Form 


Buried Concrete Thrust Block Sizing 


Program Number Title ; 
Loc Code Key Comments Loc Code Key Comments Comments 
cog Fé LBL |Input routine. : “| corresponds to the 
agi ii A |Uses ROO and R11 bottom of the 
gge 32 Nf as pointers. block. Stored in 
ao3 a1 1 R20. 
do4¢ 44 SUM The pressure at the 
oo5 i121 ii top of the block is 
go8 89 OF stored in R21. Main program. 
oUF 2 
ulers) 
ons The level of the 
water table is 
determined in 
relation to the 
bottom of the 
concrete. If the 
block does not 
intrude into the 
water table, Flag 1 
Subroutine: is set. # 


Calculates the 

soil pressure at 
the bottom of the 
block when the 
water table is at or 


rena 


above the bottom 
of the block. If flag 
1is set (no 
intrusion into the 
water table), this 
section is skipped. 
Stored in R19. 


a 


9 


91 


a 


in Ol ho 


Wr ob 


The area in the 
trapezoid under 
the water table is 
calculated, giving a 
force-per-foot 
value for the earth 
pessure. 


20 | If Flag 1 is set, 


this section is 
skipped. Stored in 
R22. 


Calculates the soil 
pressure at the 

water tale. If Flag 1 
is set, this point 


PO bob 


The area in the 
trapezoid above 
the water table is 
calculated and 
stored in R23. 
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T 
ia 
LB 
1 CE 
42 42 870 
43 15 15 
i +- | Hy is stored in R14. 
1a5 y Above, Hy is stored 
i4 CL | in RIS. 
i147 a4 
49 § = 
49 42 570 
ido i4 i4 
151 43 RCL | Hpis stored in R13. 
132 oO1 at 
153 7 
i344 iim 
3 a 
36 
157 
ise 
i159 Ko is calculated 
160 and stored in R16. 
161 
62 
163 
4 
65 


“oe 


maf APR) 


OB 9 Pg 


10 Al 


Ka is calculated 
and stored in R17. 


Loc Code Key Comments Loc Code Key Comments Loc Code Key Comments 


180 as 5 Kp is calculated 240 3 RCL | Force above water g - 
i a and stored in R18.) 241 23 25 | table is calculated. + tt 
tS 43 65  ™ | Active earch force 26 28 
183 10 3 is stored in R26. By i c The program 
184 055 ae zZ 91 01 |chooses the 
18S 02 93 = 10 E*  |appropriate friction 
186 95 42 570 % RCL | factor and 
isr 30 2o 26 09 0% | multiplies it into 
188 33 62 OP |Increment pointer 51 GTO |R28. 
ise 42 20 20 | for passive 22 LHX 
730 18 16 pressure. Earth 76 LBL 
tsi i Set pointer to or pressure on the 10 Et 
i192 a6 calculate earth a back of the block 43 REL 
193 42 pressure at rest. 13 under the water 0g o8 
194 aa 4 table is calculated. 76 LBL 
195 ia 2 23 LHX 
87 The force of the 49 
Qi earth on the sides = = 
i7 of the block under oN ‘Tiction on the 
4 the water table is eA ei — ee the block is 
= calculated. Th *U | printed. 
65 If Flag 1 is set, 59 op 
42 this section is 36 04 
aS skipped. Force above the 43 RCL 
65 water table is 25 25 
43 calculated. Passive : 
qa earth force is stored 
25 in R27. 
85 
7h 5 Active earth force 
17 a is printed. 
42 The force of the 1 Weight of concrete 
‘earth on the sides 2 0 block is stored in 
213 65 of the block above 73 OBS R28. 
214 4 the water table is 4 
215 0 calculated. The fr 
216 65 * friction force is é 
2 RCL | stored in R25. A 
oe a na ‘ os Passive earth force 
219 95 = 65 x is printed. 
220 65 # o1 1 = 
z21 02 2 05 5 : 
B 95 = og 60 3 J 
23 42 570 35 2 3 
224 25 25 4 To 3 
225 69 OP Increment pointer 4 3 : ae = 
226 20 20 |to calculate active 5 340 ; BL ‘riction on the 
g27 16 Ht earth pressure. The ie ate by ore = a bottom S the block 
22, 37 IFF | force of the earth 55 the block (if any) is 348 a , is printed. 
229 01 01 |on the front of the 4 AD subtracted from 34 a4 O4 
230 18 C* block below the 3on ne R28. 350 43 RCL 
231 43 RCL | water table is 291 5 331 28 28 
232 22 22 | calculated. 362 45 aoe a 
923 65 # 5Q9 perere) Ob 
pe 43 RCL ae 354 GR ADY |Totalresisting force 
295 02 02 ont é 355 43 RCL |of the block is 
279 295 é Bac 44 4a |odaed 
gob ae 256 2 2 
227 85 + are ; aor a 7 
228 76 LBL rae 4 gas wet dee 
239 18 C* 5 So S59 43 RCL 
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Code Key Comments Loc Code Key Comments Loc Code Key Comments 
25 29 
tS 5 
43 RCL 
26 86 
85 + 
43 RCL 
27 27 
gS + 
3 RCL 
eo 28 
95 == 
69 OP 
Oe 06 
oS ADV 


-SJo Oso 


J 
at | 


LBL |Initalize program. 
EB Reset Flag 1. 

INV |Set pointers for 

So STF input routine. 


fp ee 
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Thrust Block Calculations 


Thrust block height (ft) 

Thrust block width (ft) 

Thrust block depth (ft) 

Inverted elevation of bottom of block (ft) 
Water table depth of (ft) 

Density of saturated soil (Ibs/t’) 

Density of unsaturated soil (Ibs/ft’) 
Friction coefficient of dry soil 

Friction coefficent of wet soil 

Internal angle of friction {or soil (degrees) 


Friction force on the sides of the block (Ibs) 
Active soil pressure (Ibs) 

Passive soil pressure (Ibs) 

Friction force on the bottom of the block (Ibs) 


Total resisting force of the block (Ibs) 


Warning: This analysis does not extend to the case where the water table is above the top of 
the block. 


Program HP-41CV-13: Buried Thrust Block Sizing 
in Cohesionless Soils 


Introduction: 


HP-1CV-13 is intended to assist the user in sizing 
buried thrust blocks primarily for buried piping anchors. 
The program will calculate the active earth pressure, 
passive earth pressure, and the earth pressure at rest, 
both above and below the water table, if any exists. 
HP-41CV-13 also determines the friction resistance of 
the block along the sides of the block and on the bottom. 
The analysis is accurate for cohesionless soils only and 
does not apply any factors of safety to the soil pressures 
calculated. 


Nomenclature: 


Ten items must be supplied to the program by the user: 


HIGH: Thrust block height (see Figure 13.2) (ft) 
WIDE: Thrust block width (see Figure 13.2) (ft) 
DEEP: Thrust block depth (see Figure 13.2) (ft) 
* El: Inverted elevation of the bottom of the 
block (ft) 
*WTBL: Water table depth (ft) 
d.SAT: Density of saturated soil (Ibs/ft>) 
d.USAT: Density of unsaturated soil (Ibs/ft*) 
FR,DRY: Friction coefficient of dry soil 
FR,WET: Friction coefficient of wet soil 


4: Internal angle of friction of soil (degrees) 


The program calculates the following soil data from 
the input data: 


Ka: Coefficient of active soil pressure 
Ko: Coefficient of earth pressure at rest 
Kp: Coefficient of passive earth pressure 


Using the input data and the above calculated data, the 
program produces the following output: 


FRICTION (SIDES): Friction force on the sides 
of the block (Ibs) 

Active earth pressure ap- 
plied the block (Ibs) 
Passive earth pressure 
applied to the block (Ibs) 
Friction force on the bot- 
tom of the block (Ibs) 
Total resisting force of the 
block (Ibs) 


ACTIVE PRESSURE: 
PASSIVE PRESSURE: 
FRICTION (BOTTOM): 


TOTAL: 


Method: 


The calculations performed are classical civil engince: 
ing soil equations taken from Introductory Soil Mechan 
ics and Foundations: Geotechnical Engineering, th 
ed., by George F. Sowers. The program calculates all 
the soil coefficients and then determines what area o! 
the block is under the water table, if there is any. For the 
friction force on the sides of the block, the earth pres- 
sure at restis calculated at the bottom of the block, at the 
water table (if applicable), and at the top of the block. 
These forces outline two trapezoidal force distributions. 
From these distributions, the program determines the 
net force per unit length along the sides of the depth of 
the block, both above and below the water table. From 
the input value of DEEP, the net force on the sides of the 
block is determined. The force below the water table is 
then multiplied by the friction coefficient for wet soil, 
and the force above the water table is multiplied by the 
friction coefficient for dry soil. The sum of these two 
values is the total friction resistance on one side of the 
block. 

Similar force distributions are set up for the active soil 
pressure and the passive soil pressure. These forces 
Tepresent the force of the soil acting against a wall that is 
moving away from the soil (active pressure) and the 
force of the soil acting on a wall that is moving toward 
the soil (passive pressure). 

The final calculation performed by the program is 
determining the friction on the bottom of the block. 
Using a density of concrete of 150 pounds per cubic 
foot, the total weight of the block is calculated. Then the 
weight of the water displaced by the intrusion of the 
block into the water table is calculated and subtracted 
from the weight of the block. This final weight is then 
multiplied by the appropriate soil friction factor. Thus, 
the total resisting force is a sum of these parts. As the 
active soil pressure acts in line with the applied thrust 
force, its value is subtracted form the total. 

The program does not apply any safety factors to any 
of the values calculated, nor does it consider the friction 
resistance of the soil on the top of the block. 


*These values are measured positively from the ground 
level downward. 


386 


The following equations are used: 
Ko = 1 — sin (ANGL) 
Ka = tan? (45 — ANGL2) 
Kp = tan? (45 + ANGL/?2) 
Earth pressure at rest: 
Po = (yl + Hy + (yz — yw) « Ha)(Ko) + yw ° Hy 
Active earth pressure: 


Pa = (yl « Hy + (y2 — yw)» H2)(Ka) + yw: Hy 


Passive earth pressure: 
Pp = (yl > Hy + Gye ~ yw) Hal(Kp) # yw - Fy 
See Figure 13.2 for the definitions of H, and H, 


Limitations: 


HP-4ICV-13 does not apply any safety factors to the 
calculated values. The program will not correctly ana- 
lyze a situation in which the top of the block is below the 
water table. The equations ure to be used for coheston- 
less soils only: sand, gravel and sand. ot sandy soils 
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i 


Figure 13.2 Explanation of Terms 


Surface elevation 


wTBL 


a 


Water table 


Friction on bottom 


Surface elevation 


| 
al 


(Thrust directed into paper) 


HI 


- 


Earth prossure at rost Earth pressure at rest 
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KEYBOARD 


/ Keyboard Card Labeling 


MUM (ORR 


Fon fy usen | 


Soo 
BEe886 
S686 


= 
=== )—= 
AAR B&B 
=——=)=_= 
BeBe 


SYSTEM 


CONFIGURATION 


CARD 
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User Instructions 


Program Number HPAICY-13 Title Buried Concrete Thrust Block Sizing 


Step Instructions Input Keystroke Display 
1 Read in magnetic cards, 

2 — Intualizo program, BR HIGH= 

3 Input HIGH. HIGH R/S WIDE=2 

4 Input WIDE, WIDE R/S DEEP= 

5 Input DEEP, DEEP WS El= 

6 = Input EL El R/S WTBL= 

7 Input WTBL. WIBL RS d.SAT= 
iy Input LSAT. d.SAT RS d.USAT= 
9 Input USAT. d.USAT R/S FR,DRY= 
10 Input FRDRY. ER,DRY R/S FR,WET 
12s Input FR, WET. FR, WET R/S = 

12 Input &. p 4 R/S TOTAL 
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Program Number 


FOBERSSSQIRRZRESRES 


a lll aa 
Nao 


Registers, Flags, Assignments 


DATA REGISTERS 
Pointer 
HIGH 
WIDE 
DEEP 


SERSREGEEGRETES 


Ko Ld SiC 


Kp 1 c 
Force @ bottom 

Force @ water table 

Force at top 

#/ft below water table 

#/ft above water table 


FRICTION (sides) 
ACTIVE PRESSURE 
PASSIVE PRESSURE 
FRICTION (BOTTOM) 


TOTAL 
Label Key 


TB 15(E) 
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HP-41CV-13 Title Buried Concrete Thrust Block Sizing 


DATA REGISTERS 


FLAGS 


Set Indicates 


Block not ia the 
water mble. 


ASSIGNMENTS 
Function 


Clear Indicates 


Block in the 
water table, 


Key 


Example of a case where the water table is al 
the bottom of the block. 


HIGH= 26.688 
WIDE= 15.680 


DEEP= 16,668 
EI= 25.000 
WTBL= 25.888 

d. SAT= 136, 006 
d.USAT= 166.662 
FR. DRY= 6,368 
FR,WET= 6.208 
<= 3.600 


FRICTION 
SIDES=76, 756. LB 
BOTTOM=98, 606. LB 

PASSIVE 

PRESSURE 

1,666,578, LE 
ACTIVE 
PRESSURE 

121,946. LB 


TOTAL 
1,785,388. LB 


Example of a case where the block is partially 
submerged in the water table. 


HIGH= 28.60¢ 
WIDE= 15.000 
DEEP= 16.000 
EI= 25.088 
WTBL= 15.688 
d.SAT= 136.088 
d.USAT= 168.888 
FR, DRY= 6.368 
FR,WET= 6.288 
<= 5H. 080 


FRICTION 
SIDES=69,416. LB 
BOTTON=71,286. LE 

PASSIVE 

PRESSURE 

1,617,786. L° 
ACTIVE 
PRESSURE 

162,168. LB 
TOTAL 
1,596,242. LB 
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Example of a case where the water table is 
below the bottom of the block. 


HIGH= 26.088 
WIDE= 15.086 
DEEP= 16.066 
EI= 25,60¢ 
WTBL= 38.600 

d. SAT= 138. bee 
dD.USAT= 106,686 
FR. DRY= 6.3¢e 
FR.WET= 6.208 
a= 5.006 


FRICTION 
SIDES=76, 756. LB 
BOTTON=135, 888. LB 
PASSIVE 
PRESSURE 
1,668,978. LB 
ACTIVE 
PRESSURE 
121,946. LB 
TOTAL 
1,756,388. LB 


Example of a case where the water table is at 
the top of the block. 


HIGH= 26.008 
WIDE= 15,006 
DEEP= 16.600 
EI= 25.888 
WTBL= 5.886 
d.SAT= 136.008 
d.USAT= 180.608 
FR. DRY= 6.306 
FR. WET= 6.206 
a= 35.088 


FRICTION 
SIDES=98, 638. LB 
BOTTON=52,560. LB 

PASSIVE 

PRESSURE 

1,489,893. LB 
ACTIVE 
PRESSURE 

-282, 805. LE 
TOTAL 


1,348,885. LE 


Example Calculation 


ANCHOR BLOCK DESIGN (LINES BURIED IN 
COHESIONLESS SOILS) 


Considerations: 
Thrust force 
Block dimensions 
Water table, if any 
Earth pressure at rest 
Passive earth pressure 
Active earth pressure 
Friction force acting on bottom face 
Friction force acting on sides 


Unsaturated soil 


Earth pressure at rest: 

Po = [y1 Hi + (2 — yw)H2](1 — sin 6) + ywHe 
Passive earth pressure: 

Pp = (yh + (v2 — yw)Haltan”| 45 + 5) + ywE 
Active Earth Pressure 

Pa = [yEh + (v2 — Yw)Hb}tan? (s “ $) — 


Definitions: 

y, = Unsaturated soil density 

‘2 = Saturated soil density 

Z = Depth of point where pressure is wanted 
Zw = Depth of water table 

yw = Density of water 

o = Angle of internal friction 

H, = Depth of unsaturated soil 

H, = Depth of saturated soil = (Z — Zw) 
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Sample Problem: 
Design a Thrust Block That Will Restrain a Force of 
1,500,000 Ibs. 


GIVE 


yi = (Unsaturated weight of soil) = 100 Ib/fe 

Y2 = (Gaturated weight of soil) = 130 Ib/fe 

© = (Angle of internal friction) = 35° (sand) 

Ha = (Friction coefficient of Unsaturated soil) = 0.3 
B2 = (Friction coefficent of saturated soil) = 0.2 
Solution: 


Assume the dimensions of the sides of the block and 
solve for the total restraining force. If the restraining 
force is greater than the applied thrust, then the block is 
overdesigned and could be sized down. If, on the other 
hand, the restraining force is less than the thrust applied, 
then increase one dimension of the block until the two 
forces are more or Jess equal. 
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Note that if the size of the block is insufficient to restrain 
the thrust, it is more advantageous to increase the size of 
the block in the Z-direction, unless the Y-dimension is 
increased while the top of the block remains at the same 
underground elevation. 


For the sample problem, let us assume that for the block, 
Y = 20', X = 10’, and Z = 15’. 


Now, looking at the X-Y plane the pressure distribution 
diagram would be as follows: 


—— <r 


Thrust line 
———> 


The passive, active, the rest pressures must be found at 
the top and bottom of the block and at the water table 
level. 


Pressure at Rest (Pr): 
(Bottom) Pr = [yiHi + (y2 — yw)Ha(1 — sin $) + ywH2) 
= [100(15) + (130 — 62.4) 10 (1 — sin 35°)] 
+ 62.4 (10) 
= 1551.90 Ib/ft” 
Note that Hz becomes zero at and above the water table: 
(Water Table) Pr = [y:H,](1 — sin 4) 
= [100(15)](1 — sin 35) 
= 639.64 lb/ft? 
(Top) Pr = (100 (5)) (1 — sin 35) 
= 213.21 Ib/ft? 
Similarly for passive pressure (Pp): 
(Bottom) Pp = 8,653.81 lb/ft? 
(Water Table) Pp = 5,535.26 lb/ft? 
(Top) Pp = 1,845.09 lb/ft? 
Active earth pressure (Pa): 
(Bottom) Pa = 1,213.67 lb/ft? 
(Water Table) Pa = 406.49 Ib/ft? 
(Top) Pa = 135.50 lb/ft? 
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Now calculate resisting friction force on the sides. 


PRESSURE DISTRIBUTION DIAGRAM 


The areas under the triangles will provide the resulting 
force per linear foot acting on the sides. 


(639.64 — 213.21) 10 


Area above water table = 


: + 213.21(10). 
= 4,264.25 Ib/ft 


Multiplying this times the block dimension parallel to 


the thrust or the X-dimension, we obtain the total force 
acting on one side above the water table: 


FR (force due to earth pressure atrest) = 4,264.25(10) = 
42,642.50 Ibs 

Ff (friction force) = 0.3 (42,642.5) = 12,792.75 lbs 

Ff (two sides) = 12,792.75(2) = 25,585.50 Ibs 


Similarly for the component below the water table: 


(1,551.90 — 639.64)10 
a = 


2 
= 10,957.70 lb/ft 


+ 639.64(10) 


Again, total force acting on one side below the water 
table: 


Fr = 10,957.70(10) = 109,577 Ibs 


FE = 0.2 (109,577) = 21,915.4 Ibs 
Ff (two sides) = 21,915.4(2) = 43,830.80 Ibs 


Following a similar procedure, the active and passive 
components of the resisting force are found. 
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Active pressure. 


1,213.67 psf 


5,535.26 psf Water table 


Passive pressure 


8,653.81 psf 


PRESSURE DISTRIBUTION DIAGRAM 


Active pressure: 


_ (1,213.67 — 406.49)10 
2 
_, (406.49 = 135.5)10 


2 
+ 135.5(10) 
= 10,810.75 Ib/ft 
FA = 10,810.75(15) = 162,161.25 Ibs 


Passive pressure: 


Area + 406.49(10) 


(8,653.81 — 5,535.26)10 
a= 


2 
‘ (5,535.26 — 1,845.09)10 


+ 5,535.26(10) 


2 

+ 1,845.09(10) 

= 107,847.10 lb/ft 
FP = 107,847.10(15) = 1,617,706.5 lbs 


Finally, we must account for the friction force acting on 
the bottom face of the block. 


Concrete = 150 lb/ft? 
Volume of block = 10 x 20 x 15 = 3,000 fe 
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Total weight of concrete = 150(3,000) = 450,000 Ibs. 


To this we must subtract the displaced weight of water 
to account for the buoyancy effect on the portion of the 
block below the water table. 


w = 62.4 lb/ft® 

Volume under saturated soil = 10 x 10 x 15 = 
1,500 ft? 

Weight of water displaced = 62.4(1,500) = 93,600 Ibs 

Total weight = 450,000 — 93,600 = 356,400 Ibs 

FF = 356,400(0.2) = 71,280 Ibs 


Note that the friction force on the top face is ignored. 
Total resisting force: 


FTOT = (FF S) + (FP) — (FA) + (FFB) 
= (25,586 + 43,831) + (1,617,707) — (162,161) 
+ (71,280) 
= 1,596,243 Ibs 
Total Force = 1,596,243 > 1,500,000 = Thrust 
-.Thrust block is adequate 


Note that the passive force is the highest component of 
the total resisting force. 


HP-41CV-13 


Sample Problem 
Buried Concrete Thrust Block Sizing 


Program: Title 


Sample Problem (Sketch if Desired) 


HIGH = 20 ft 

WIDE = 15 ft 

DEEP = 10 ft 

EI =25 ft underground 
WIBL = 15 ft underground 
a.SAT = 130 Ibs/ft? 
QUSAT = 100 Ib/f3 


FR, DRY = 0.3 
FR, WET = 0.2 
| 2237 
Input Function Display Comments 
E HIGH= Initializes program. Prompts user for HIGH. 
20 R/S WIDE= Stores HIGH in RO1. Prompts for WIDE. 
5 R/S DEEP= Stores WIDE in RO2. Prompts for DEEP. 
10 R/S = Stores DEEP in RO3. Prompts for EI. 
25 R/S WIBL= Stores EI in R04. Prompts for WTBL. 
15 R/S d.SAT= Stores WIBL in ROS. Prompts for d.SAT. 
130 R/S @USAT= Stores d.SAT in ROG. Prompts for d.USAT. 
100 R/S FR,DRY= Stores d.USAT in RO7. Prompts for FR,DRY. 
BS R/S FR,WET= Stores FR,DRY in RO8. Prompts for FR, WET. 
2 R/S x= Stores FR,WET in RO9. Prompts for X. 
35 R/S (Printed output) Stores ¥ in R10. 
FRICTION 
SIDES= 
69,416 LB First the program determines whether the block is in or 
BOTTOM= on the water table. If it is, then Flag 1 is set. Hy is 
71,280 LB calculated and stored in R14. Hy and Hg are calculated 
PASSIVE and stored in R15 and R13, respectively. Next the soil 
PRESSURE coefficients Ko, Ka, and Kp are calculated and stored in 
1,617,706 LB R16, R17, and R18, respectively. 
ACTIVE 
PRESSURE 
-162,160 LB 
TOTAL 


1,596,242 LB 


Input 


Function 


Display 


Comments 


A single subroutine is used to calculate the various earth 
pressures on the block. The pressures are calculated in the 
following order: Earth pressure at rest on the sides of the block, 
active earth pressure on the front face of the block, and passive 
earth pressure on the back face of the block. In each case, the 
force of the soil is calculated in Ibs/ft of wall at three points: at 
the top of the block, at the water table, and at the bottom of the 
block. If the water table is at or below the bottom of the block, 
the force at the bottom is the same. From these three forces, the 
trapezoidal force distributions are calculated. When multiplied by 
the length of the block (WIDE or DEEP) the total force on the 
block is found. For soil pressure on the side of the block, the 
appropriate soil friction factors are used above and below the 
water table to get the friction on the sides. Finally, the program 
calculates the weight of the block, subtracts the buoyancy of the 
displaced water, and multiplies the final weight of the block by 
the appropriate friction factor. 


The results are printed and the program resets for another run. 
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Coding Form 


Program Number HP-4ICV-13 Tio _ Buried Concrete Thrust Block Sizing 
Step} Key Key Comments Step! Key Key Comments Ste a 
, : pi Key Key Comments 
Line Entry Code Line Entry Code Line Entry Code 
BleLBL *TB™ Initialize program.| 56 SF 61 99 2 
Load alpha |} 
i re papers ee a SIeLBL 16 H, is calculated 108 * 
: 82 STO 15 and stored in R14. | 101 $T0 25 
. ie 53 CHS His stored in R15. [492 | Sains wel 
ulate active 
: “ 54 RCL 64 103 ST+ 68 earth pressure. 
06 “RIDE 55 + 
@7 ASTO a2 56 STO 14 104 HEO A 
03 "DEEP" 185 RCL 22 The force of the 
@9 ASTO 83 5? RCL 1 Ho is storedin R13.} 106 RCL 62 active earth 
18 EI" S8 RCL 15 167 * pressure on the 
11 ASTO 84 39 = 108 RCL 23 wae s ee 
is calculated. 
12 “HTBL* a STO 13 : 189 RCL 62 Flag 1 is set, the 
13 ASTO 85 11 K, is calculated 110 * pressure of the 
14 “6. SAT* 62 RCL 18 and stored in R16.| {11 FS? @1 water is not 
15 aso 4G 63 SIH 112 GTO C a Fa is 
16 “a. USAT" 64 - 113 + stored in R26. 
17 ASTO 67 65 STO 16 114¢LBL C 
18 “FR, DRY" 66 45 Ka is calculated 115 STO 26 
19 ASTO 88 6? RCL 16 and stored in R17.| {16 1 Calculate passive 
28 “FR KET oe 117 $T+ G8 ‘| earth pressure. 
21 ASTO 29 hd 118 XE A 
Mr 76 - 119 RCL 22 | The force of the 
23 ASTO 18 71 TAN 128 RCL 62 passive earth 
24 CLA 72 Bt2 121 ¥* pressure on the — 
25 1.81 73 $10 17 mig sees 
26 STO 6G 7445 Kp is calculated 123 RCL 82 stored in R27. If 
27 FI¥ 3 Z +. 18 and stored in R18.| 124 # Flag 1 is set, the 
28¢LBL “AA Input routi 125 FS? 61 pressure of the 
a ee | 2 wy ras 
38 SF 12 pointer and zs 127 + ; 
31 ARCL IND ag | Counter. TAH 128¢LBL D 
2 -fe* #t2 129 STO 27 
33 PROHPT Biompisiforhut 81 STO 18 138 RCL 81 Weight of the 
34 STO IND 8g |and Santedale 82 16 Calculate earth 131 RCL 82 concrete block is 
35 ACA 83 STO 48 pressure at rest. 132 RCL 83 stored in R28. 
36 CF 12 84 XEQ A 133 + 
37 ACK 85 RCL 22 The force of the 134 ¢ 
38 PRBUF 86 RCL 83 earth on the sides 135 158 
39 ISt 6@ 87 4 of the block is 136 * 
48 CTO “Age 28 ROL 9 © —_—| calculated. IF Flag ?| 137 STO 28 
, the pressure | 139 po 45 
41 ADY Determines a “ of the water is not 129 Pel ge ne eee of 
; locati AL é: included. The e displace 
: a eae if the Si RCL 63 friction force from 148 * water is 
44 - block does not 92 + the earth on the | 141 RCL 83 subtracted. from 
" intrude into the 53 RCL 8 sides of the blockis| 449 the block weight. 
45. X82 water table, Flag 1 stored in R25. 
46cm 10 = lisse | oe 
” ° 95 FS? a1 * 
4=6? 
#2 C10 10 96 GTO B 195 SI 28 
49 CLE 9 + 146 FS? @1 The correct 
‘ 98¢LBL B 14? GTO 26 friction factor is 
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Step! Key Key Comments Step/ Ke 
: y Key Comments Step! Ke K C 
Line Entey Code Line Entry Code Line ee Code ee 
148 RCL 69 ene for the 197 - 246 # 
149 GTO 36 iction on the : 
15eeLBL 2@ | Dottom of the a mene asa 
. rce 0 2 F ‘ 
151 RCL a8 block IF Flag lis | 969 pol 28 the block is the pe ie The #/ft of wall is 
IS2HLRL. 38 tt, | : a sum oF all Forces? 35 calculated below 
friction factor is 261 + fi 
in - active, passive 258 RCL 19 the water table and 
33 STs 28 ___| nse 262 “TOTAL | and friction. 251 RCL 26 stored in R22. Tf 
154 "FRICTION" | The results are 203 SF 12 252 - Flag 1 is set, this 
155 SF 12 printed. 284 PRA 253 2 ears 
156 PRA 285 CLA 254 / 
157 CF 12 266 CF 12 255 RCL 28 
158 CLA 267 ARCL ¥ 956 + 
159 “SIDES=" 268 “F LB" 257 RCL 15 
160 FIX 8 209 ACA 258 & 
161 ARCL 25 21 ADY 259 S10 22 
162 “F LB" ait ADV 266eLBL 25 
163 ACA 212 AY eel eel au The #ft of wall is 
164 Aly 213 GTO “TE* 262 RCL 21 the ete isle ae 
165 *BOTTOM=" 214¢LBL A This subroutine 263 - stored in R23. 
166 ARCL 28 215 FS? @l calculates the 264 2 
167 “F LB" 216 CTO 25 Se |, een 
a4 at the top an 2 
os a - on a ile of the 266 RCL 21 
ye lock and at the + 
176 SF 12 219% water table. If - REL 12 
171 “PASSIVE * ea a orvuudents | 2 : 
a 299 : ‘ the water table, this 276 $10 23 
73 CLA 5 - first section is 271 RIK 
174 “PRESSURE ne a 15 | skipped. Force at | 272 . EMD. 
175 PRA 2. J the bottom is 
i. cle a am ae stored in R19. 
177 CF 12 é ou 
178 ARCL 27 an 
179 “F LE e 
188 ACA calpain 
181 ADY =e : 
182 SF 12 : 
183 ACTIVE" 232 $10 19 
184 PRA 233¢LBL 25 Force at the water 
ee Sane 234 REL {4 table is calculated 
ie Sie 935 RCL a7 and stored in R20. 
187 PRA a Rol THD 0 
148 CLA ae 
. OF 12 939 STO 28 
2 a ee 
192 “F LB* 942 - calculated and 
193 ACA 243 RCL 47 stored in R21. 
194 ADY bdd x 
195 ROL 25 245 RCL IND 8i 
196 RCL 26 
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